MOVABLE BARRIER OPERATOR HAVING FORCE 
AND POSITION LEARNING CAPABILITY 

BACKGROUND OF THE INVENTION 

The invention relates in general to a movable 
barrier operator for opening and closing a movable barrier 
or door. More particularly, the invention relates to a 
garage door operator that can learn force and travel limits 
when installed and can simulate the temperature of its 
electric motor to avoid motor failure during operation. 

A number of garage door operators have been sold 
over the years. Most garage door operators include a head 
unit containing a motor having a transmission connected to 
it, which may be a chain drive or a screw drive, which is 
coupled to a garage door for opening and closing the garage 
door. Such garage door openers also have included optical 
detection systems located near the bottom of the travel of 
the door to prevent the door from closing on objects or on 
persons that may be in the path of the- door. Such garage 
door operators typically include a wall control which is 
connected via one or more wires to the head unit to send 
signals to the head unit to cause the head unit to open and 
close the garage door, to light a worklight or the like. 
Such prior art garage door operators also include a 
receiver and head unit for receiving radio frequency 
transmissions from a hand -held code transmitter or from a 
keypad transmitter which may be affixed to the outside of 
the garage or other structure. These- ga age door operators 
typically include adjustable limit switches which cause the 
garage door to operate or to halt the motor when the travel 
of the door causes the limit switch to change state which 
may either be in the up position or in the down position. 
This prevents damage to the door as well damage to the 
structure supporting the door. It may be appreciated, 
however, that with different size garages and different 
size doors, the limits of travel must be custom set once 
the unit is placed within the garage. In the past, such 
units have had mechanically adjustable limit switches which 



are typically set by an installer. The installer must go 
back and forth between the door, the wall switch and the 
head unit in order to make the adjustment. This, of 
course, is time consuming and results in 'the installer 
being forced to spend more time than is desirable to 
install the garage door operator. 

A number of requirements are in existence from 
Underwriter's Laboratories, the Consumer Product Safety 
Commission and the like which require that garage door 
operators sold in the United States must, when in a closing 
mode and contacting an obstruction having a height of more 
than one inch, reverse and open the door in order to 
prevent damage to property and injury to persons. Prior 
art garage door operators also included systems whereby the 
force which the electric motor applied to the garage door 
through the transmission might be adjusted. Typically, 
this force is adjusted by a licensed repair technician or 
installer who obtained access to the inside of the head 
unit and adjusts a pair of potentiometers, one of which 
sets the maximal force to be applied during the closing 
portion of door operation, the other of which establishes 
the maximum force to be applied during the opening of door 
operation. 

Such a garage door operator is exemplified by an 
operator taught in U.S. Patent No. 4,638,443 to Schindler. 
However, such door operators are relatively inconvenient to 
install and invite misuse because the homeowner, using such 
a garage door operator, if the garage door operator begins 
to bind or jam in the tracks, may likely obtain access to 
the head unit and increase the force limit. Increasing the 
maximal force may allow the door to move passed a binding 
point, but apply the maximal force at the bottom of its 
travel when it is almost closed where, of course, it should 
not . 

Another problem associated with prior art garage 
door operators is that they typically use electric motors 
having thermostats connected in series with portions of 



their windings- The thermostats are adapted to open when 
the temperature of the winding exceeds a preselected limit. 
The problem with such units is that when the thermostats 
open, the door then stops in whatever position it is then 
in and can neither be opened or closed until the motor 
cools, thereby preventing a person from exiting a garage or 
entering the garage if they need to. 

SUMMARY OF THE INVENTION 

The present invention is directed to a movable 
barrier operator which includes a head unit having an 
electric motor positioned therein, the motor being adapted 
to drive a transmission connectable to the motor, which 
transmission is connectable to a movable barrier such as a 
garage door. A wired switch is connectable to the head 
unit for commanding the head unit to open and close the 
door and for commanding a controller within the head unit 
to enter a learn mode. The controller includes a micro- 
controller having a non -volatile memory associated with it 
which can store force set points as well as digital end of 
travel positions within it. When the ^controller is placed 
in learn mode by appropriate switch closure from the wall 
switch, the door is caused to cycle open and closed. The 
force set point stored in the non-volatile memory is a 
relatively low set point and if the door is placed in learn 
mode and the door reaches a binding position, the set pc „nt 
will be changed by increasing the set point to enable the 
door to travel through the binding area. Thus, the set 
points will be dynamically adjusted as the door is in the 
learn, but the set points will not be changeable once the 
door is taken out of the learn mode, thereby preventing the 
force set point from being inadvertently increased, which 
might lead to property damage or injury. Likewise, the end 
of travel positions can be^ adjusted automatically when in 
the learn mode because if the door is halted by the 
controller, when the controller senses that the door 



position has reached the previously set end of travel 
position, the door will then be commanded by a button push 
from the wall switch to keep travelling in the same 
direction, thereby incrementing or changing. The end of 
travel limits are set by pushing the learn button on the 
wall switch which causes the door to travel upward and 
continue travelling upward until the door has travelled as 
far as the operator wishes it to travel . The disables the 
learn switch by lifting his hand from the button. The up 
limit is then stored and the door is then moved toward the 
closed position. A pass point or position normalizing 
system consisting of a ring -like light interrupter attached 
to the garage door crosses the light path of an optical 
obstacle detector signalling instantaneously the position 
of the door and the door continues until it closes, where- 
upon force sensing in the door causes an auto- reverse to 
take place and then raises the door to the up position, the 
learn mode having been completed and the door travel limits 
having been set. 

The movable barrier operator also includes a 
combination of a temperature sensor and microcontroller. 
The temperature sensor senses the ambient temperature 
within the head unit because it is positioned in proximity 
with the electric motor. When the electric motor is 
operated, a count- is incremented in the microcontroller 
which is multiplied by a constant which is indicative of 
the speed at which the motor ij moving. This incremented 
multiplied count is then indicative of the rise in tempera- 
ture which the motor has experienced by being operated. 
The count has subtracted from it the difference between the 
simulated temperature and the ambient temperature and the 
amount of time which the motor has been switched off. The 
totality of which is multiplied by a constant. The remain- 
ing count then is an indication of the extant temperature 
of the motor. In the event that the temperature, as 
determined by the microcontroller, is relatively high, the 
unit provides a predictive function in that if an attempt 



is made to open or close the garage door, prior to the door 
moving, the microcontroller will make a determination as to 
whether the single cycling of the door will add additional 
temperature to the motor causing it to exceed a set point 
temperature and, if so, will inhibit operation of the door 
to prevent the motor from being energized so as to exceed 
its safe temperature limit. 

The movable barrier operator also includes light 
emitting diodes for providing an output indication to a 
user of when a problem may have been encountered with trie 
door operator. In the event that further operation of the 
door operator will cause the motor to exceed its set point 
temperature, an LED will be illuminated as a result of the 
microcontroller temperature prediction indicating to the 
user that the motor is not operating because further opera- 
tion will cause the motor to exceed its safe temperature 
limits . 

It is a principal aspect of the present invention 
to provide a movable barrier operator which is able to 
quickly and automatically select end of travel positions. 

It is another aspect of the present invention to 
provide a movable barrier operator which, upon installa- 
tion, is able to quickly establish up and down force set 
points . 

It is still . another aspect of the present 
invention to provide a movable barrier operator which can 
determine the temperature of the motor based upon motor 
history and the ambient temperature of the head unit. 

Other aspects and advantages of the invention 
will become obvious to one of ordinary skill in the art 
upon a perusal of the following specification and claims in 
light of the accompanying drawings. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

FIG. 1 is a perspective view of a garage having 
mounted within it a garage door operator embodying the 
present invention; 

FIG. 2 is a block diagram of a controller mounted 
within the head unit of the garage door operator employed 
in the garage door operator shown in FIG. 1; 

FIG, 3 is a schematic diagram of the controller 
shown in block format in FIG. 2; 

FIG. 4 is a schematic diagram of a receiver 
module shown in the schematic diagram of FIG. 3; 

FIG. 5A-B are a flow chart of a main routine that 
executes in a microcontroller of the control unit; 

FIGS. 6A-G are a flow diagram of a learn routine 
executed by the microcontroller; 

FIGS. 7A-B are flow diagrams of a timer routine 
executed by the microcontroller; 

FIGS. 8A-B are flow diagrams of a state routine 
representative of the current and recent state of the 
electric motor; 

FIGS. 9A-B are a flow chart of a tachometer input 
routine and also determines the position of the door on the 
basis of the pass point system and input from the optical 
obstacle detector; 

FIGS. 10A-C are flow charts of the switch input 
routines from the switch module; and 

FIG. 11 is a schematic diagram of the switch 
module and the switch biasing circuit. 
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DETAILED DESCRIPTION OF THE PREFERRED EMBODIMENT 

Referring now to the drawings and especially to 
FIG. 1, more specifically a movable barrier door operator 
or garage door operator is generally shown therein and 
referred to by numeral 10 includes a head unit 12 mounted 
within a garage 14. More specifically, the head unit 12 is 
mounted to the ceiling of the garage 14 and includes a rail 
18 extending therefrom with a releasable trolley 2 0 
attached having an arm 22 extending to a multiple paneled 
garage door 24 positioned for movement along a pair of door 
rails 26 and 28. The system includes a hand-held trans- 
mitter unit 30 adapted to send signals to an antenna 32 
positioned on the head unit 12 and coupled to a receiver as 
will appear hereinafter. An external control pad 34 is 
positioned on the outside of the garage having a plurality 
of buttons thereon and communicate via radio frequency 
transmission with the antenna 32 of the head unit 12 . A 
switch module 39 is mounted on a wall of the garage. The 
switch module 39 is connected to the head unit by a pair of 
wires 39a. The switch module 39 includes a learn switch 
39b, a light switch 39c, a lock switch 39d and a command 
switch 39e. An optical emitter 42 is connected via a power 
and signal line 44 to the head unit. An optical detector 
46 is connected via a wire 48 to the head unit 12. A pass 
point detector 49 comprising a bracket 49a and a plate 
structure 49b extending from the bracket has a substantial- 
ly circular aperture 49c formed in the bracket, which 
aperture might also be square or rectangular. The pass 
point detector is arranged so that it interrupts the light 
beam on a bottom leg 49d and allows the light beam to pass 
through the aperture 49c * The light beam is again inter- 
rupted by the leg 49e, thereby signalling the controller 
via the optical detector 46 that the pass point detector 
attached to the door has moved passed a certain position 
allowing the controller to normalize or zero its position, 
as will be appreciated in more detail hereinafter. 



As shown in FIG. 2, the garage door operator 10, 
which includes the head unit 12 has a controller 70 which 
includes the antenna 32. The controller 70 includes a 
power supply 72 which receives alternating current from an 
alternating current source, such as 110 volt AC, and 
converts the alternating current to +5 volts zero and 
24 volts DC. The 5 volt supply is fed along a line 74 to 
a number of other elements in the controller 70. The 
24 volt supply is fed along the line 76 to other elements 
of the controller 70. The controller 70 includes a super- 
regenerative receiver 80 coupled via a line 82 to supply 
demodulated digital signals to a microcontroller 84. The 
receiver is energized by a line 86 coupled to the line 74. 
The microcontroller is also coupled by a bus 86 to a non- 
volatile memory 88, which non- volatile memory stores set 
points and other customized digital data related to the 
operation of the control unit. An obstacle detector 90, 
which comprises the emitter 42 and infrared detector 46 is 
coupled via an obstacle detector bus 92 to the micro- 
controller. The obstacle detector bus 92 includes lines 44 
and 48. The wall switch 39 is connected via the connecting 
wires 39a to a switch biasing module 96 which is powered 
from the 5 volt supply line 74 and supplies signals to and 
is controlled by the microcontroller via a bus 100 coupled 
to the microcontroller. The microcontroller, in response 
to switch closures, will send signals over a relay logic 
line 102 to a relay logic module 104 connected to an 
alternating current motor 106 having a power take-off shaft 
108 coupled to the transmission 18 of the garage door 
operator. A tachometer 110 is coupled to the shaft 108 and 
provides a tachometer signal on a tachometer line 112 to 
the microcontroller 84 . The tachometer signal being 
indicative of the speed of rotation of the motor. 

The power supply 72 includes a transformer 130 
which receives alternating current on leads 132 and 134 
from an external source of alternating current. The 
transformer steps down the voltage to 24 volts and feeds 
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24 volts to a pair of capacitors 13 8 and 140 which provide 
a filtering function . A 24 volt filtered DC potential is 
supplied on the line 76 to the relay logic 104. The 
potential is fed through a resistor 142 across a pair of 
5 filter capacitors 144 and 146, which are connected to a 
5 volt voltage regulator 150 , which supplies regulated 
5 volt output voltage across a capacitor 152 and a Zener 
diode 154 to the line 74. 
r| Signals may be received by the controller at the 

y 10 antenna 32 and fed to the receiver 80. The receiver 80 

m 

£j includes a pair of inductors 170 and 172 and a pair of 

capacitors 174 and 176 that provide impedance matching 
between the antenna 32 and other portions of the receiver. 
* An NPN transistor 178 is connected in common base configur- 

jfj 15 ation as a buffer amplifier. Bias to the buffer amplifier 

flj transistor 178 is provided by resistors 180. A resistor 

i. 5 

J 188, a capacitor 190, a capacitor 192 and a capacitor 194 

£ J 

pi provide filtering to isolate a later receiver stage from 

the buffer amplifier 178. An inductor 196 also provides 

2 0 power supply buffering. The buffered RF output signal is 
supplied on a line 200, coupled between the collector of 
the transistor 178 and a receiver module 202 which is shown 
in FIG. 4. The lead 204 feeds into the unit 202 and is 
coupled to a biasing resistor 220. The buffered radio 

25 frequency signal is fed via a coupling capacitor 222 to a 
tuned circuit 224 comprising a variable inductor 226 
connected in parallel with a capacitor 228. Signals from 
the tuned circuit 220 are fed on a line 23 0 to a coupling 
capacitor 232 which is connected to an NPN transistor 234 

30 at its based 236. The transistor has a collector 240 and 
emitter 242. The collector 240 is connected to a feedback 
capacitor 246 and a feedback resistor 248. The emitter is 
also coupled to the feedback capacitor 246 and to a 
capacitor 250. The line 210 is coupled to a choke inductor 

35 256 which provides ground potential to a pair of resistors 
258 and 260 as well as a capacitor 262. The resistor 258 
is connected to the base 236 of the transistor 234. The 
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resistor 260 is connected via an inductor 264 to the 
emitter 242 of the transistor. The output signal from the 
transistor is fed outward on a line 212 to an electrolytic 
capacitor 270. 

As shown in FIG* 3, the capacitor 270 capaci- 
tively couples the demodulated radio frequency signal to a 
bandpass amplifier 280 to an average detector 282 which 
feeds a comparator 284, The comparator 284 also receives 
a signal directly from the bandpass amplifier 280 and 
provides a demodulated digital output signal on the line 82 
coupled to the P32 pin of the Z86E21/61 microcontroller. 
The microcontroller is energized by the power supply 72 and 
also controlled by the wall switch 39 coupled to the micro- 
controller by the leads 100* 

From time to time, the microcontroller will 
supply current to the switch biasing module 96. 

The microcontroller operates under the control of 
a main routine as shown in FIGS, 5A and 5B. When the unit 
is powered up, a power on reset is performed in a step 300, 
the memory is cleared and a check sum from read-only memory 
within the microcontroller 84 is tested'. In a step 302, if 
the check sum and the memory prove to be correct, control 
is transferred to a step 304, if not, control is trans- 
ferred back to the step 300. In the step 304, the last 
non- volatile state, which is indicative of the state of the 
operator, that is whether the operator indicated the door 
was at its up limit, down Unit or in the middle of its 
travel, is tested for in a step 304 and if the last state 
is a down limit, control is transferred to a step 306. If 
it was an up limit, control is transferred to a step 308. 
If it was neither a down nor an up limit, control is 
transferred to a step 310. In the step 306, the position 
is set as the down limit value and a window flag is set. 
The operation state is set as down limit. In a step 308, 
the position is set as up, the window flag is set and the 
operation state is set as up limit. In the step 310, the 
position is set as outside the normal range, 6 inches below 
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the secondary up limit. The operation state is set as 
stopped. Control is transferred from any of steps 306, 3 08 
and 310 to a step 312 where a stored simulated motor 
temperature is read from the non-volatile memory 88, The 
temperature of a printed circuit board positioned within 
the head unit is read from the temperature sensor 120 which 
is supplied over a line 12 0a to the microcontroller. In 
order to read the PC board temperature, a pin P2 0 of the 
microprocessor is driven high, causing a high potential to 
appear on a line 120b which supplies a current through the 
RTD sensor 120 to a comparator 120c. A capacitor 120d 
connected to the comparator and to the temperature sensor, 
is grounded and charges up. The other input terminal to 
the comparator has a voltage divider 12 Oe connected to it 
to supply a reference voltage of about 2.5 volts. Thus, 
the microcontroller starts a timer running when it brings 
line 120b high and interrogates a line 120f to determine 
its state. The line 12 Of will be driven high when the 
temperature at the junction of the RTD 120 and the 
capacitor 120d exceeds 2.5 volts. Thus, the time that it 
takes to charge the capacitor through the resistance is 
indicative of the temperature within the head unit and, in 
this manner, the PC board temperature is read and if the 
temperature as read is greater than 'the temperature 
retrieved from the non-volatile memory, the temperature 
read from the PC board is then stored as the motor 
temps ^ature. 

In a step 314, constants related to the receipt 
and processing of the demodulated signal on the line 82 are 
initialized. In a step 316, a test is made to determine 
whether the learn switch 39b had been activated within the 
last 3 0 seconds. If it has not, control is transferred 
back to the step 314. 

In a step 318, a test is made to determine 
whether the command switch debounce timer has expired. If 
it has, control is transferred to a step 320. If it is 
not, control is transferred back to the step 314. In the 
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step 32 0, the learn limit cycle is begun as will be 
discussed in more detail as to FIGS. 6A through 6G. The 
main routine effectively has a number of interrupt routines 
coupled to it* In the event that a falling edge is 
detected on the line 112 from the tachometer, an interrupt 
routine related to the tachometer is serviced in the step 
322, A timer interrupt occurs every 0.5 millisecond in a 
step 324 as shown in FIGS . 7A through 7B. 

The obstacle detector 90 generates a pulse every 
10 milliseconds during the time when the beam from the 
infrared emitter 42 has not been interrupted either by the 
pass point system 49 or by an obstacle, in a step 326 
following which the obstacle detector timer is cleared in 
a step 328. 

As shown in FIGS . 10A through 10C, operation of 
the switch biasing module 96 is controlled over the lines 
100 by the microcontroller 84. The microcontroller 84, in 
the step 340, tests to determine whether an RS232 digital 
communications mode has been set. If it has, control is 
transferred to a step 342, as shown in FIG. 10C, testing 
whether data is stored in an output buffer to be output 
from the microcontroller. If it is, control is transferred 
to a step 344 outputting the next bit, which may include a 
start bit, from the output buffer and control is then 
transferred back to the main routine. In the event that 
there is no data in the data buffer, control is transferred 
to the step 346, testing whether data is being received 
over lines 100. If it is being received, control is 
transferred to a step 348 to receive the next bit into the 
input buffer and the routine is then exited. If not, 
control is transferred to a step 350. In the step 350, a 
test is made to determine whether a start bit for RS232 
signalling has been received. If it has not, control is 
transferred to a return step 352. If it has, control is 
transferred to a step 354 in which a flag is set indicating 
that the start bit has been received and the routine is 
exited. As shown in FIG. 10A, if the response to the 
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decision block 340 is no, control is transferred to a 
decision step 360. The switch status counter is incre- 
mented and then a test is determined as to whether the 
contents of the counter are 29. If the switch counter is 
1 5 29, control is transferred to a step 362 causing the 
counter to be zeroed. If the counter is not 29 , control is 
transferred to a step 3 64, testing for whether the switch 
status is equal to zero. If the switch status is equal to 

P zero, control is transferred to a step 366. In a step 366, 

PI . 

|| 10 a current source transistor 368, shown in FIG. B f is 

uj switched on, drawing current through resistors 370 and 372 

|;| and feeding current out through a line 39a connected 

Iff thereto to the switch module 39a and, more specifically, to 

L a resistor 380, a 0.10 microfarad capacitor 382, a 

EI 

p;j 15 1 microfarad capacitor 384, a 10 microfarad capacitor 386 

PJ and a switch terminal 388. The switch 39e is coupled to 

y 

!*! the switch terminal 388, The switch 39d may be selectively 

Pj coupled to the capacitor 386. The 'switch 39b may be 

selectively coupled to the capacitor 384. The switch 39c 

20 may be selectively coupled to the capacitor 382. A light 
emitting diode 392 is connected to the resistor 380. 
Current flows through the resistor 380 and the light 
emitting diode 392 back to another one of the lines 39a and 
through a field effect transistor 398 to ground. In step 

25 402, the sense input on a line 100 coupled to the 
transistor 398 is tested to determine whether the input is 
high. If the input Ls high immediately, that is indicative 
of the fact that switches 39b through 39e are all open and 
in a step 404, debounce timers are decremented for all 

3 0 switches and a got switch flag is set and the routine is 
exited in the event that the test of step 402 is negative. 
Control is then transferred to a step 406 testing after 
10 milliseconds if the sense in output on the line 100 
connected to the field effect transistor 398 is high, which 

35 would be indicative of the switch 39c having been closed. 
If it is high, the worklight timer is incremented, all 
other switch timers are decremented, the got switch flag is 
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set and the routine is exited. In the event that the 
decision in step 406 is in the negative, control is 
transferred to a step 410 and the routine is exited * In 
the event that the decision from step 364 is in the 
negative, control is transferred to a step 412 wherein the 
switch status is tested as to whether it is equal to one. 
If it is, control is transferred to a step 414 testing 
whether the sensed input on the line 100 connected to the 
field effect transistor is high* If it is, control is 
transferred to step 416 to set the got switch flag, after 
which in a step 418, the learn switch debouncer is incre- 
mented, all other switch counters are decremented, the got 
switch flag is set and the routine is exited, ^In the event 
that the answer to step 414 is in the negative, control is 
transferred to a return step 420. 

In the event that the answer to step 412 is in 
the negative, control is transferred to a step 422, as 
shown in FIG. 10B. A test is made as to whether the switch 
status is equal to 10. If it is, control is transferred to 
a step 424 where the sense out input is tested as high. 

Thus, the charging rate for the capacitors which, 
in effect / is sensed on the line 100 connected to the field 
effect transistor 398 which is coupled to ground, is indi- 
cative of which of the switches is closed because the 
switch 39c has a capacitor that charges at 10 times the 
rate of the capacitor 384 connected to 39b and 100 times 
the rate of the capacitoi 386 selectively couplable to 
switch 39d. 

After the switch measurement has been made, the 
transistor 368 is switched non-conducting by the line 368b 
and the field effect transistor 39 8 is switched non- 
conducting by a line 450 connected to its gate. A 
transistor 462, coupled via a resistor 464 to a line 466, 
is switched on, biasing a transistor 468 on, causing 
current to flow through a diagnostic light emitting diode 
470 to a field effect transistor 472 which is switched on 
via a voltage on a line 474. In addition, the capacitors 
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386, 384 and 382, which may have been charged are 
discharged through the field effect transistor 472. 

In order to perform all of the switching 
functions after the step 424 has been executed, control is 
transferred to a step 510 testing whether the got switch 
flag has been cleared. If it has, control is transferred 
to a step 512 in which the command timer is incremented and 
all other timers are decremented and the got switch flag is 
set and the routine is exited. If the got switch flag is 
cleared as indicated in the step 510, the routine is exited 
in the step 514. In the event that the sense input is 
measured as being high in the step 424, control is trans- 
ferred to a step 516 where the vacation or lock flag 
counter is incremented and all other counters are decre- 
mented. The got switch flag is set and the routine is 
exited. In the event that the switch status equal 10 test 
in the step 422 is indicated to be no, control is then 
transferred to a step 52 0 testing whether the switch status 
is 11. If the switch status is 11, indicating that the 
routine has been swept through 11 times, control is 
transferred to a step 522 in which the field effect 
transistors 398 and 472 are both switched on, providing 
ground pads on both sides of the capacitors causing the 
capacitors to discharge and the routine is then exited. In 
the event that the step 520 test is negative, control is 
transferred to a step 524 testing whether the routine has 
been executed 15 times. If it has, control is transferred 
to a step 526 indicating that the bit which controls the 
status the light emitting diode 470, the diagnostic light 
emitting diode, has been set. If it has not been set, 
control is transferred to a step 528 wherein both 
transistors 368 and 468 are switched on and both the field 
effect transistors 39 8 and 472 are switched off. In order 
to test for short circuits between the source and drain 
electrodes of the field effect transistors 398 and 472 
which might cause false operation signals to be supplied on 
the lines 100 to the microcontroller 84, resulting in 
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inadvertent operation of the electric motor. The routine 
is then exited. In the event that the test in step 526 
indicates that the diagnostic LED bit has been set, control 
is transferred to a step 530. In the step 530, the 
5 transistors 468 and 472 are switched on allowing current to 
flow through the diagnostic LED 470. In the event that the 
test in step 524 is negative, a test is made in a step 532 
^ as to whether the routine has been executed 26 times. If 

Q it has not, the routine is exited in a step 534. If it 

|| 10 has, both of the field effect transistors 398 and 372 are 

y switched on to connect all of the capacitors to ground to 

|;f,' discharge the capacitors and the routine is exited. 

Iff As shown in FIGS . 7A and 7B, when the timer 

interrupt occurs as in step 324, control is transferred to 
|| 15 a step 550 shown in FIG. 7A wherein a test is made to 

P| determine whether a 2 millisecond timer has expired. If it 

has not, control is transferred to a step 552 determining 
whether a 500 millisecond timer has expired. If the 
500 millisecond timer has expired, control is transferred 
20 to a step 554 testing whether power has been switched on 
through the relay logic 104 to the electric motor 106. If 
the motor has been switched on, control is transferred to 
a step 556 testing whether the motor is stalled, as 
indicated by the motor power having been switched on and by 
25 the fact that pulses are not coming through on the line 112 
from the tachometer 110. In the event that the motor has 
stalled, control is transferred to a step J58. In the step 
558 the existing motor temperature indication, as stored in 
one of the registers of the microcontroller 84, has added 
3 0 to it a constant which is related to a motor characteristic 
which is added in when the motor is indicated to be 
stalled. In the event that the response to the step 556 is 
in the negative, indicating that the motor is not stalled, 
control is transferred to a step 560 wherein the motor 
35 temperature is updated by adding a running motor constant 
to the motor temperature. In the event that the response 
to the test in step 554 is in the negative, indicating that 
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motor power is not on and that heat is leaking out of the 
motor so that- the temperature will be dropping, the new 
motor temperature is assigned as being equal to the old 
motor temperature, less the quantity of the old motor 
5 temperature, minus the ambient temperature measured from 
the RTD probe 120, the whole difference multiplied by a 
thermal decay fraction which is a number. 

All of steps 558, 560 and 562 exit to a step 564 
which test as to whether a 15 minute timer has timed out. 
10 If the timer has timed out, control is transferred to a 
step 566 causing the current, or updated motor temperature, 
to be stored in a non- volatile memory 88. If the 15 minute 
timer has not been timed out, control is transferred to a 
step 510, as shown in FIG. 7B. Step 566 also exits to step 
15 568. A test is made in the step 568 to determine whether 
a obstacle detector interrupt has come in via step 32 6 
causing the obstacle detector timer to have been cleared. 
If it has not, the period will be greater than 12 milli- 
seconds, indicating that the obstacle detector beam has 
2 0 been blocked . If the obstacle detector beam, in fact, has 
been blocked, control is transferred to a step 570 to set 
the obstacle detector flag. 

In the event that the response to step 568 is in 
the negative, the obstacle detector flag is cleared in the 
25 step 572 and control is transferred to a step 574. All 
operational timers, including radio timers and the like are 
incremented and the routine is exited. 

In the event that the 2 millisecond timer tested 
for in the step 550 has expired, control is transferred to 
30 a step 576 which calls a motor operation routine. Follow- 
ing execution of the motor operation routine, control is 
transferred to the step 552. When the motor operation 
routine is called, as shown in FIG. 8A, a test is made in 
a step 580 to determine the status of the motor operation 
35 state variable which may indicate that the up limit has 
been reached. If the up limit or the down limit have been 
reached, the motor is causing the door to travel up or 
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down, the door has stopped in mid-travel or an auto-reverse 
delay indicating that the motor has stopped in mid- travel 
and will be switching into up travel shortly. In the event 
that there is an auto- reverse delay, control is transferred 
5 to a step 582, when a test is made for a command from one 
of the radio transmitters or from the wall control unit 
and, if so, the state of the motor is set indicating that 
the motor has stopped in mid-travel. Control is then 
transferred to a step 584 in which 0.50 second timer is 
10 tested to determine whether it has expired. If it has, the 
state is set to the up travel state following which the 
yi routine is exited in the step 586. In the event that the 

Jrj operation state is in the up travel state, as tested for in 

step 580, control is transferred to a step 588 testing for 
Cl 15 a command from a radio or wall control and if the command 

m 

%;$ is received, the motor operational state is changed to stop 

H| in mid- travel. Control is transferred to a step 590. If 

the force period indicated is longer than that stored in an 
up array location, indicated by the position of the motor. 
20 The state of the door is indicated as stopped in mid- 
travel. Control is then transferred to a step 592 testing 
whether the current position of the door is at the up 
limit, then the state of the door is set as being at the up 
limit and control is transferred to a step 594 causing the 
25 routine to be exited, as shown in FIG. 8B. 

In the event: that the operational state tested 
for in the step 580 is indicated to be at the up limi", 
control is transferred 10 a step 596 which tests for a 
command from the radio or wall control unit and a test is 
3 0 made to determine whether the motor temperature is below a 
set point for the down travel motor temperature threshold. 
The state is set as being a down travel state. If the 
temperature value exceeds the threshold or set point 
temperature value, an output diagnostic flag is set for 
35 providing an output indication in another routine. Control 
is then transferred to a step 598, causing the routine to 
be exited. In the event that the down travel limit has 
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been reached, control is transferred to a step 600 testing 
for whether a command has come in from the radio or wall 
control and, if it has, the state is set as auto-reverse 
and the auto- reverse timer is cleared. Control is then 
.5 transferred to a step 602 testing whether the force period, 
as indicated, is longer than the force period stored in the 
down travel array for the current position of the door. 
Auto- reverse is then entered at step 582 on a later 
£* iteration of the routine. Control is transferred to a step 

|| 10 604 to test whether the position of the door is at the down 

. ff ■■ limit position and the pass point detector has already 

|| indicated that the door has swept the passed the pass 

.51 point, the state is set as a down limit state and control 

is transferred to a step 606 testing for whether the door 
O 15 position is at the down limit position and testing for 

j|f whether the pass point has been detected. If the pass 

H| point has not been detected, the motor operational state is 

> : ? . set to auto-reverse, causing auto-reverse to be entered in 

■PJ 

a later routine and control is transferred to a step 608, 

2 0 exiting the main routine. 

In the event that the block 580 indicates that 
the door is at the down limit, control is transferred to a 
step 610, testing for a command from the radio or wall 
control and testing the current motor temperature. If the 
25 current motor temperature is below the up travel motor 
temperature threshold, then the motor state variable is set 
as equal to up travel. If the temperature is above the 
threshold or set point temperature, a .diagnostic code flag 
is then set for later diagnostic output and control is 

3 0 transferred to a return step 612. In the event that the 

motor operational state is indicated as being stopped in 
mid- travel, control is transferred to a step 614 which 
tests for a radio or wall control command and tests the 
motor temperature value to determine whether it is above or 
35 below a down travel motor temperature threshold. If the 
motor temperature is above the travel threshold, then the 
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door is left stopped in mid- travel and the routine is 
returned from in step 616. 

In the event that the learn switch has been 
activated as tested for in step 316 and the command switch 
5 is being held down as indicated by the positive result from 
the step 318, the learn limit cycle is entered in step 320 
and transfers control to a step 630, as shown in FIG. 6A, 
in step 630, the maximum force is set to a minimum value 
from which it can later be incremented, if necessary. The 
.10 motor up and motor down controllers in the relay logic 104 
are disabled. The relay logic 104 includes an NPN 
transistor 700 coupled to line 76 to receive 24 to 28 volts 
therefrom via a coil 702 of a relay 704 having relay 
contacts 706. A transistor 710 coupled to the micro- 
15 controller is also coupled to line 76 via a relay coil 714 
and together comprise an up relay 718 which is connected 
via a lead 720 to the electric motor 106. A down 
transistor 730 is coupled via a coil 732 to the power 
supply 76. The down relay 732 has an armature 734 
20 associated with it and is connected to the motor to drive 
it down. Respective diodes 74 0 and 742 are connected 
across coils 714 and 732 to provide protection when the 
transistors 710 and 730 are switched off. In the step 632, 
both the transistors 710 and 73 0 are switched off, inter- 
25 rupting either up motor power or down motor power to the 
electric motor 106 and the microcontroller delays for 
0.50 second. Control is then transferred to a step 634, 
causing the relay 704 to be switched on, delivering power 
to an electric light or worklight 750 associated with the 
30 head unit. The up motor relay 716 is switched on. A 
1 second timer is also started which inhibits testing of 
force limits due to the inertia of the door as it begins 
moving. Control is then transferred to a step 636, testing 
for whether the 1 second timer has timed out and testing 
35 for whether the force period is longer than the force limit 
setting. If both conditions have occurred, control is 
transferred to a step 64 0 as shown in FIG. 6B. If either 
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the 1 second timer has not timed out or the force period is 
not longer than the force limit setting, control is 
transferred to a step 638 which tests whether the command 
switch is still being held down. If it is, control is 
5 transferred back to step 63 6 . If it is not, control is 
transferred to the step 640. In step 640, both the up 
transistor 710 and the down transistor 730 are causing both 
the up motor and down motor command from the relay logic to 
be interrupted and a delay of 0.50 second is taken and the 
10 position counter is cleared. Control is then transferred 
to a step 640 in which the transistor 730 is commanded to 
switch on, starting the motor moving down and the 1 second 
force ignore timer is started running, A test is made in 
a step 642 to determine whether the command switch has been 
15 activated again. If it has, the force limit setting is 
increased in a step 644 following which control is then 
transferred back to the step 632. If the command switch is 
not being held down, control is then transferred to a step 
646, testing whether the 1 second force ignore timer has 
20 timed out. The last 32 rpm pulses indicative of the force 
are ignored and a force period from the previous pulse is 
accepted as the down force. Control is then transferred to 
a step 64 8 and a test is made to determine whether the 
movable barrier is at the pass point as indicated by the 
25 pass point detector 49 interacting with the optical 
detector 46. Control is then transferred to a step 650. 
The position counter is complemented and the complemented 
value is stored as the up limit following which the 
position counter is cleared and a pass point flag is set. 
3 0 Control is then transferred back to the step 642. In the 
event that the result of the test in step 648 is negative, 
control is transferred to a step 652 which tests whether 
the 1 second force delay timer has expired and whether the 
force period is greater than the force limit setting, 
35 indicating that the force has exceeded. If both of those 
conditions have occurred, control is transferred to a step 
654 which tests whether the pass point flag has been set. 
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If it has not been set, control is transferred to a step 
656, wherein the position counter is complemented and the 
complemented value is saved as the up limit and the 
position counter is cleared. In the event that the pass 
point flag has been set, control is transferred to a step 
658. In the event that the test in step 652 has been 
negative, control is transferred to a step 660 which tests 
the value of the obstacle reverse flag. If the obstacle 
reverse flag has not been set, control is transferred to 
the step 642 shown on FIG. 6B. If the flag has been set, 
control is transferred to the step 654. 

In a step 658, both transistors 710 and 730 are 
switched off interrupting up and down power from the relays 
to the electric motor 106 and halting the motor and the 
microcontroller then delays for 0.50 second. Control is 
then transferred to a step 660. In step 660, the 
transistor 710 is switched on switching on the up relay 
causing the motor to be turned to drive the door upward and 
the 1 second force ignore timer is started. Control is 
transferred to a decision step 662 testing for whether the 
command switch is seu , If the command switch is set, 
control is transferred back to the step 664 causing the 
force limit setting to be increased, following which 
control is transferred to the step 632, interrupting the 
motor outputs. If the command switch has not been set, 
control is transferred to the step 664 causing the maximum 
force irom the 33rd previous reading to be saved as the up 
force, following which control is transferred to a decision 
block 666 which tests for whether the 1 second force ignore 
timer has expired and whether the force period is longer 
than the force limit setting. If both conditions are true, 
control is transferred to a step 668. If not, control is 
transferred to a step 670 which tests for whether the door 
position is at the up limit. If the door position is at 
the up limit, control is transferred to the step 668, 
switching off both of the motor outputs to halt the door 
and delaying for 0.50 second. If the position tested in 



step 670 is not at the upper limit, control is transferred 
back to the step 662. Following step 668 , control is 
transferred to the step 676 during which the command switch 
is tested. If the command switch is set, control is 
transferred back to the step 644 causing the force limit 
setting to be increased and ultimately to the step 632 
which switches off the motor outputs and delays for 
0.5 0 second. If the command switch has not been set, 
control is transferred to a step 678. If the position 
counter indicates that the door is presently at a point 
where a force transition normally occurs or where force 
settings are to change, and the 1 second force ignore timer 
has expired, the 33rd previous maximum force is stored and 
the down force array is filled with the last 33 force 
measurements. Control is then transferred to a step 680 
which tests for whether the obstacle detector reverse flag 
has been set. If it has not been set, control is 
transferred to a step 682 which tests for whether the 
1 second force ignore timer has expired and whether the 
force period is longer than the force limit setting. If 
both those conditions are true, control is transferred to 
a step 684 which tests for the pass point being set. If 
the pass point flag was not set, control is transferred to 
the step 688. In the event that the obstacle reverse flag 
is set, control is also transferred to the step 688. In 
the event that the decision block 682 is answered in the 
negative, control is transferred back to the step 676. If 
the pass point flag has been set as tested for in the step 
684, control is transferred to the step 686 wherein the 
current door position is saved as the down limit position. 
In step 688, both the motor output transistors 710 and 730 
are switched off, interrupting up and down power to the 
motor and a delay occurs for 0.50 second. Control is then 
transferred to the step 69 0 wherein the up transistor 710 
is switched on, causing the up relay to be actuated, 
providing up power to the motor and the 1 second force 
ignore timer begins running. In the step 692, a test is 
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made for whether the command has been set again. If it 
has, control is transferred back to the step 644, as shown 
in FIG. 6B, and following that to the step 632, as shown in 
FIG. 6A. If the command switch has not been set, control 
5 is transferred to the step 694 which tests for whether the 
position counter indicates that the door is at a sectional 
force transition point or barrier and the 1 second force 
ignore timer has expired. If both those conditions are 
true, the maximum force from the last sectional barrier is 
H 10 then loaded. Control is then transferred to a decision 

KS step 69 6 testing for whether the 1 second force ignore 

timer has timed out and whether the force period is 
indicated to be longer than the force period limit setting. 
■M If both of those conditions are true, control is then 

i 

f| 15 transferred to a step 69 8 causing the motor output 

W transistors 710 and 73 0 to be switched off and all data is 

y stored in the non-volatile memory 88 and the routine is 

Kl exited. In the event that decision is indicated to be in 



yj 



ril 



the negative from the decision step 696, control is 

20 transferred to a step 697 which tests whether the door 
position is presently at the up limit position. If it is, 
control is then transferred to the step 69 8. If it is not, 
control is transferred to the step 692 . 

In the event that the rpm interrupt step 322, as 

25 shown in FIG. 5B, is executed, control is then transferred 
to a step 800, as shown in FIG. 9A. In step 800, the time 
duration from the last rpm pulse from the tachometer 110 is 
measured and saved as a force period indication. Control 
is then transferred to a decision block • Control is 

30 transferred to the step 802, in which the operator state 
variable is tested. In the event that the operator state 
variable indicates that the operator is causing the door to 
travel down, the door is at the down limit or the door is 
in the auto- reverse mode, control is transferred to a step 

35 804 causing the door position counter to be incremented. 
In the event that the door operator state indicates that 
the door is travelling upward, has reached its up limit or 
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has stopped in mid- travel, control is transferred to a step 

806 which causes the position counter to be decremented. 

Control is then transferred to a decision step 808 in which 

the pass point pattern testing flag is tested for whether 

5 it is set. If it is set, control is transferred to a step 

810 which tests a timer to determine whether the maximum 

pattern time allotted by the system has expired. In the 

event that the pass point pattern testing flag is not set, 

J*, control is transferred to a step 812, testing for whether 

rf . * ' 

|| 10 the optical obstacle detector flag has been set. If is 

|;i not, the routine is exited in a step 814. If the obstacle 

W detector flag has been set, control is transferred to a 

g step 816 wherein the pattern testing flag is set and the 

i't routine is exited. In the event that the maximum pattern 

h 15 time has timed out. As tested for in the step 810, control 

III is transferred to a step 82 0 wherein the optical reverse 

fit 

^j. flag is set and the routine is exited. In the maximum 

Q pattern time has not expired, a test is* made in a step 822 

for whether the microcontroller has sensed from the 

20 obstacle detector that the beam has been blocked open 
within a correct timing sequence indicative of the pass 
point detection system. If it has not, the routine is 
exited in a step 824. If it has, control is transferred to 
a step 826. Testing for whether a window flag has been 

25 set. As to whether the rough position of the door would 
indicate that the pass point should have been encountered. 

f the window flag has been set, control is transferred to 
a step 828, testing for whether the position is within the 
window flag position. If it has, control is transferred to 

30 a step 832, causing the position counter to be cleared or 
renormalized or zeroed, setting the window flag and set a 
flag indicating that the pass point has been found, 
following which the routine is exited. In the event that 
the position is now within the window as tested for in step 

3 5 82 8, the obstacle reverse flag is set in a step 830 and the 
routine is exited. In the event that the test made in step 
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32 6 indicates that the window flag has not been set, 
control is then transferred directly to the step 832. 

While there has been illustrated and described 
a particular embodiment of the present invention, it will 
be appreciated that numerous changes and modifications will 
occur to those skilled in the art, and it is intended in 
the appended claims to cover all those changes and modifi- 
cations which fall within the true spirit and scope of the 
present invention. 



11 = Switch state to discharge P3 = 01 01 XXXX FOR NEW LAYOUT 

Clear the radio codes from RTO 
or new code flag "output RTO' 

Note temp is temp +40 

change temp adder for running reset change stall temp adder 

Note remove from set any clr switch_data and clr radio_cmd 

add fill before the 101 org 

dnjimit and 2X upjimit commented out 

REMOVED THE UP LIMIT & DOWN LIMIT 
CONDITIONAL OF RPM CAUSING FORCED UP STATE 



45 46 4A 4B 4F 

******* ******** * 



; 44 * 47* 49 * 4C* 4E * 
* + * * * 

•42*43* 



****** ****** 

; . 48 4D 

; Jog 

: 30 31 ******* 
***** * 
* * 

• 32 *** 33 

; Position is done from rpm on direction is assumed from the state of the system 

; State Assumed Direction 

; Autoreverse Down 

; Up_Direction Up 

; Up_Position Up 

Reset Up 

Dn_Directton Down 

Dn_Position Down 
; Stop Up 

;The position counter is zeroed at the end of the patterned IR interruption 

; in the down direction and increases 

; from there to the max position which is the down limit 

; the patterned position is from the bottom of the door having a 3/4 inch bar, 

; a 3/4 inch space then another 3/4 inch bar 



; since the gdo is giving SO pulses for ever rotation of the upper sproket we have 
; 6 touth -> 20 rpm pulses 
; 8 touth => 1 5 rpm pulses 
;10 touth => 12 rpm pulses 

;The set up will be done from the program mode being set and the wall control being activated 
; the door will travel up first then down and reverses off a .5 inch obstruction 
; at the reversal point the position number is the max position 
; Startup shall be in the up direction 



; RS 232 is done from the wall control baud is 1 200 



; Secondary state machine for learning 

; 42 Stop All Travel 

; 43 Delay .5 seconds 

; 44 Set up direction 

; 45 At up limit 

; 46 Delay .5 second 

; 47 Down travel 

; 48 Arev 

; 49 Up travel 

; 4A At up limit 

; 4B Delay .5 seconds 

; AC Down travel 

; AD Arev 

; 4E Up travel 

; 4F At up limit 

; else clear 



NON-VOL MEMORY MAP 



00 


AO 


01 


AO 


02 


A1 


03 


A1 


04 


A2 


05 


A2 


06 


A3 


07 


A3 


08 


A4 


09 


A4 


OA 


A5 


0B 


A5 


OC 


A5 


0D 


A6 


0E 


A7 


OF 


A7 


10 


A8 


11 


A8 


12 


A9 



) 



13 A9 

14 A1C 

15 A10 

16 A11 

17 A11 

18 B 

19 B 
1A C 
1B C 

1C CYCLE COUNTER 1ST 16 BITS 

1D CYCLE COUNTER 2ND 16 BfTS 

1E VACATION FLAG 

Vacation Flag . Last Operation 
0000 " XXXX in vacation 

1111 XXXX out o1 vacation 

1 F A MEMORY ADDRESS LAST WRITTEN 

Max speed 1800 RPM => 150 pulses / sec * 27 seconds => 4050 pulses max => 15 groups 



20 


Up Force 1 


0000-EFFF 


21 


Up Force 2 


FFFF-FF00 


22 


Up Force 3 


FEFF-FE00 


23 


Up Force 4 


FDFF-FD00 


24 


Up Force 5 


FCFF-FC00 


25 


Up Force 6 


FBFF-FB00 


26 


Up Force 7 


FAFF-FA00 


27 


Up Force 8 


F9FF-F900 


28 


Up Force 9 


F8FF-F800 


29 


Up Force 10 


F7FF-F700 


2A 


Up Force 1 1 


F6FF-F600 


2B 


Up Force 1 2 


F5FF-F500 


2C 


Up Force 1 3 


F4FF-F40G 


2D 


Up Force 14 


F3FF-F300 


2E 


Temperature of 


motor 


2F 


Up Limit setting 




30 


Down Force 1 


0000- EFFF 


31 


Down Force 2 


FFFF-FF00 


32 


Down Force 3 


FEFF-FE00 


33 


Down Force 4 


FDFF-FD00 


34 


Down Force 5 


FCFF-FC00 


35 


Down Force 6 


FBFF-FB00 


36 


Down Force 7 


FAFF-FA00 


37 


Down Force 8 


F9FF-F900 


38 


Down Force 9 


F8FF-F800 


39 


Down Force 1 0 


F7FF-F700 


3A 


Down Force 1 1 


F6FF-F600 


3B 


Down Force 1 2 


F5FF-F500 


3C 


Down Force 1 3 


F4FF-F400 


3D 


Down Force 14 


F3FF-F300 


3E 


Last operation and reason 


3F 


Down Limit setting 



RS232 DATA 



INPUT 


OUTPUT 




"0" 30H 


Switches and mode 




0011 XXXO 
0011 XXXI 
0011 XXOX 
0011XX1X 
0011X0XX 
0011X1XX 


Command switch not closed 
Command switch closed 
Light switch not closed 
Lrght switch closed 
Vacation switch not closed 
Vacation switch closed 


"1" 31H 


System status 






0011 XXXO 
0011XXX1 
0011 XXOX 
0011XX1X 
0011XOXX 
0011X1XX 

r 


Not in vacation mode 
In vacation mode 
Worklight off 
Worklight on 
No Aobs Errors 
Aobs errors 


n 2 m 32H 


RPM period 




"3" 33H 


0011 XXXO 
0011XXX1 
0011 XXOX 
0011XX1X 
OO11X0XX 
0011X1XX 


Learn switch not closed 
Learn switch closed • 
Not in learn mode 
In learn mode 
Window not active 
Window active 


"4"34H 


Radio memory codes Page 00 
32 BYTES 


"5* 35H 


Radio memory codes Page 10 
32 BYTES 


n 6 m 36H 


Up force table, Up limit, and motor temp. 



"7" 37H Down force table, down limit, and last operation 



"8" 38H MEMORY TEST AND ERASE ALL!! 

00 OK 
FF ERROR 

"9" 39H Set program mode 

"A" 41 H Present position of travel 

Position = First byte * 256 + second byte 

"B" 42H Down limit position 

Down limit = First byte * 256 + second byte 



A-4 



V 



) 



"C" 43H Up limit position 

Up limit = First byte * 256 + second byte 

"D* 44H Max force 

Max force = First byte * 256 + second byte 

"E" 45H Force setting up direction 

Force = First byte * 256 + second byte 

"F" 46H Force setting down direction 

Force = First byte * 256 + second byte 



; *G"47H Window size 



w- ■ 

tp ; . "H" 48H Window active 

M ; "0" off 

W- ' : " ron 

m ; ■ 

; T 49H Give a command sets the command debouncer 

Jj| ; for normal command send a "P" then T 

^ g • for learning limit send "Q9r then a "P" when at up position 



"J" 4AH READ the temperature of the logic board +40C 

"K" 4BH READ the temperature of the motor +40C 



g ; "L" 4CH 9 For normal operation not in learn 

ii ; 0 Min force 

; 1 

; 2 

; 3 Max forces 

; "M" 4DH Vacation switch command 

"N" 4EH Light switch command 

; "O" 4FH Force adder . 

•P" 50H Clear the command debouncer 

; "CT 51 H Set the command debouncer 

; *R" 52H Last Radio code received if new else nothing 

; "S" 53H Temperature PCB ASCII 

; T" 54H Temp motor ASCII Temperature PCB ASCII 

"U'SSH Wake up code to set rs232 mode 

: Returns the version 

• "V" 56H State ASCII 

.; "0" Autorevers delay 

; "1 " Traveling in the up direction 

; "2" At the up position 



"3* Error 

"4* Traveling in the down direction 
"5" At the down position 
m 6* Stopped in mid travel 

"W" 57H Reason ASCI! 

"O" Command 

"1" Radio command 

"2" Force 

"3" Protector 

"4* Autoreverse delay 

"5" Limits 

m 6 n Early limits 

"7" Timeout 

"8" RPM forcing up 

•9" Cmd held to limits 

"A* B code to the limits 

"B" Over temperature 

"F" No Pass Point 

P X* 58H Fault code ASCII 

"Y" 59H Straps ASCII 

00110X00 10 tooth 

00110X01 9.5 tooth 

00110X10 6 tooth 

00110X11 8 tooth 

001 100XX Thermal protector off 

001 1 01 XX Thermal protector on 



"Z* 5AH Fixed table window off 



Rs232 learn limits 

output "Q9I" when at up limit position "P" 



DIAG 



1 ) AOBS shorted 

2) AOBS open / miss aligned 

3) Protector intermittenent 

4) Over temp 

5) Memory bad 

6) No RPM in the first second 

7) RPM forced a reverse 

DOG 2 



(. 



) 



DOG 2 IS A SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL "MAINLOOP" 

IS NOT REACHED WITHIN A 3 SECOND 



Conditions 



Yes 


.equ 


1h 




No 


.equ 


Oh 




E21 


.equ 


Yes 


; E21 or C33 8K 


DownToLimits 


.equ 


No 


; command held bypass 


TernpMeasureFlag 


.equ 


Yes 


; else set temperature to 85C 


ForceTempCompFlag 


.equ 


Yes 


; else set force to .5mS adder 


ThermalProtectorFlag 


.equ 


Yes 


; else skip test for motor temperature 


PSBiockFlag 


.equ 


No 


; need .5 inch block 


AOBSBypass 


.equ 


No 


; Protector not bypassed from cmd of B 


PassProtector 


.equ 


Yes 


; is the pass point the protector or 


RTD 






; the switch pass point 


.equ 


Yes 


; is the thermal device a RTD 



EQUATE STATEMENTS 



MINAR 

MAXAR 

UpDownTime 



.equ 7D 
.equ 1 50d 
.equ 03d 



min # rpm pulse for interruption 
max # rpm pulse for pass point 



; distance verses tooth 

; Pulses / Inch = Pulses / Motor rev * Motor rev / Shaft rev 1 
; for 6 tooth = 5 M6 * 1/6 * 2 = 26..666 
16* 1/8*2 = 20 
16* 1/9.5*2 = 16.84 



Shaft rev / Teeth * Teeth / Inch 



; for 8 teeth = 
; for 9.5 tooth 



5* 

= 5 



; for 8 teeth 


= 5 * 16 * 1/10 * 


2 = 16 




» 

L10HI 


.equ 


OOh 


; 1 0 tooth 


L10LO 


.equ 


8D 




L9P5Hi 


.equ 


OOH 


; 9.5 tooth 


L9P5LO 


.equ 


9D 




L8Hi 


.equ 


OOh 


: 8 tooth 


L8Lo 


.equ 


10D 




L6Hi 


.equ 


OOh 


; 6 tooth 


L6Lo 


.equ 


13D 





c 



) 



TempRunlncHi 


.equ 


OOh 


TempRunlncLo 


.equ 


5Ch 


Tpmn^talllnrMi 

1 CI t IpOlCtN II 1L.1H 


.equ 


uun 


Tpmn^tali \nr-\ a 
1 iipoidl! If ILLU 


equ 


AC OK 


T27Adder 


.equ 


005H 


UoSetMaxTpmn 

'f* 1 VISA 1 CTI * \VJ 




1 f^M 

1 OvAJ 


DnSetMaxTemo 


phi i 




Version 




ecu 

Jon 


ch6ck sum value 




UJnn 


TIMER 0 


FOI J 


1 \jt 1 


TIMER 0 EN 




won 


TIMER 1 EN 


FOI 1 




MOTOR Mi 




AO/1 U 


MOTOR i n 


.trvJU 


UbUn 




±UU 


orri 1 

OFFH 


LlOn 1 KJ[\ 


.cQU 


02 H 


MlTTPvD I ID 


.EQU 


01 H 


MfYTOR HM 


.bQU 


04 H 


HKI i IMIT 
L/iNi LIM 1 1 


.bQU 


02H 


1 IP 1 IM IT 
Ur LlM 1 i 


. tuu 


01 H 


L/JO OVV 


.bQU 


1 00O0OO0B 


OL/lo ovv 


-bQU 


01 1 1 1 1 1 1 B 




.bQU 


A4 AAA AAA f*"V 

01 000000b 


CHARGE SW 


.EQU 


00100000B 


CCHARGE SW 


.EQU 


11011111B 


COMPARATORS 


.EOU 


30H 


DOWN_COMP 


.EQU 


20H 


Ur GUMP 


.EQU 


10H 


P01M INIT 


.EQU 


01000100B 


P2MJNIT 


.EQU 


11100000B 


DOM IKtIT 


.EQU 


00000001 B 


DAi C IMIT 

rO 1 0 INI 1 


.EQU 


0000001 0B 


P2S INIT 


.EQU 


1000001 0B 


P3SJNIT 


.EQU 


10100000B 


FLASH 


.EQU 


OFFH 


vv wnr\i_ivjri t 


.tuu 


02H 


COM CHARGE 


.EOU 


2 


WORK CHARGE 


.EQU 


20 


VAC_CHARGE 


.EQU 


80 


COM DiS 


.EQU 


01 


WORK DIS 


.EQU 


04 


VACJ3IS 


.EQU 


24 


CMD TEST 


.EQU 


00 


WL_TEST 


.EQU 


01 . 



; rate of temperature increase running 
; every second 

; rate of temperature increase stalled 

; every second 

; adder if running when reset 

; max temp to set this state 
; max temp to set this state 
; set the version number 



; set mode p00-p03 out p04-p07in 

; set port3 p30-p33 input DIGITAL mode 



VAC TEST 


.EOU 


02 


CHARGE 


.EQU 


03 


AUTO REV 


.EQU 


00H 


UP DIRECTION 


.EQU 


01H 


UP POSITION 


.EOU 


02H 


DN DIRECTION 


.EQU 


04 H 


DN POSITION 


.EQU 


05H 


STOP 


.EQU 


06H 


CMD SW 


.EQU 


01H 


LIGHT SW 


.EQU 


02H 


VAC SW 


.EQU 


04 H 



PERIODS 



AUTO HI 




-EQU 


00H 


AUTO LO 




.EQU 


0F4H 


FLASH HI 




.EQU 


00H 


FLASH LO 




.EQU 


07AH 


SET TIME 


Hi 


.EQU 


02H 


SET TIME 


LO 


.EQU 


02H 


SET TIME 


PRE 


.EQU 


OFBH 


ONE_SEC 




.EQU 


0F4H 


SwPeriod 




.equ 


150d 


RsPeriod 




.equ 


104d 



; auto rev timer .5 sec 

; .25 sec flash 

;4.5 MIN 
;4.5 MIN 
;4.5 MIN 

; WITH A 12 IN FRONT 
; switch period = 300uS 
; RS232 period 2400 Baud 208uS 



CMD MAKE 


.EQU 


8D 


CMD BREAK 


.EQU 


(255D-8D) 


LIGHT MAKE 


.EQU 


8D 


LIGHT BREAK 


.EQU 


(255D-8Di 


VAC MAKE OUT 


.EQU 


4D 


VAC BREAK OUT 


.EQU 


(255D-4D) 


VAC MAKE IN 


.EQU 


2D 


VAC_BREAK_IN 


.EQU 


(255D-2D) 


VAC DEL 


.EQU 


8D 


CMD DEL EX 


.EQU 


4D 


VAC DEL EX 


.EQU 


50D 



; cycle count *10mS 
; cycle count *11mS 
; cycle count *100mS 



ADDRESSES 



AddressAO .equ 00H 

AddressAI .equ 02H 

Address A2 .equ 04 H 

AddressA3 .equ 06H 

AddressA4 .equ 08H 

AddressAS .equ 0AH 



A- 



■9 



AddressAc 


.equ 


OCH 


AddressA? 


.equ 


OEH 


AddressA8 


.equ 


10H 


AddressA9 


.equ 


12H 


Address A10 


.equ 


14H 


AddressA1 1 


.equ 


16H 


Address B 


.equ 


18H 


AddressC 


.equ 


1 AH 


AddressCounter 


.equ 


1CH 


AddressVacation 


.equ 


1EH 


AddressApointer 


.equ 


1FH 


AddressUpForceTable 


.equ 


20H 


AddressTemperature 


.equ 


2EH 


AddressUpLimrt 


.equ 


2FH 


AddressDownForceTable .equ 


30H 


AddressLastOperation 


.equ 


3EH 


AddressDown Limit 


.equ 


3FH 



.IF 

ALL_ONJMR 

.RadioOfflMR 

RETURNJMR 

.ELSE 
ALL_ON_IMR 
RadioOfflMR 
RETURNJMR 

.ENDIF 



E21 



.equ 
.equ 
.equ 

.equ 
.equ 
.equ 



00111111b 
00111100B 
00111111b 

00111101b 
00111100B 
00111101b 



; turn on int for timers rpm auxobs 
; turn radio off durring autoiearn cycle 
; return on the IMR 

; turn on int for timers rpm auxobs 
; turn radio off durring autoiearn cycle 
; return on the IMR 



GLOBAL REGISTERS 



STATUS 


.EQU 


04H 


STATE 


.EQU 


05H 


FORCE PRE 


.EQU 


06H 


FORCE IGNORE 


.EQU 


07H 


AUTO DELAY HI 


.EQU 


08H 


AUTO DELAY LO 


.EQU 


09H 


AUTO DELAY 


.EQU 


08H 


MOTOR TIMER HI 


.EQU 


0AH 


MOTOR TIMER LO 


.EQU 


0BH 


MOTOR TIMER 


.EQU 


0AH 


LIGHT TIMER HI 


.EQU 


OCH 


LIGHT TIMER LO 


.EQU 


0DH 


LIGHT_TIMER 


.EQU 


OCH 


FourDFlag 


.equ 


OEH 


PRE_LIGHT 


.EQU 


0FH 


TIMER_GROUP 


.EQU 


10H 


rsrto 


.equ 


r5 


obs_flag 


.equ 


r6 


rs232do 


.equ 


r7 


rs232di 


.equ 


r8 


rscommand 


.equ 


r9 



; state register 



rs_temp_hi 


.equ 


no 




rs_temp_lo 


.equ 


r11 




rs_temp 


.equ 


rr10 




rs232docount 


.equ 


r10 




rs232dicount 


.equ 


M1 




rs232odelay 


.equ 


r12 




rs232ideiay 


.equ 


r13 




rs232page 


.equ 


r15 




VACCHANGE 


.EQU 


TIMER 


GROUP+0 


VACFLASH 


.EQU 


TIMER 


GROUP+1 


VACFLAG 


.EQU 


TIMER 


GROUP+2 


FAULT 


.EQU 


TIMER 


GROUP+3 


R_DEAD_TIME 


.EQU 


TIMER 


GROUP+4 


RsRto 


.EQU 


TIMER 


GROUP+5 


OBS_FLAG 


.EQU 


TIMER. 


.GROUP+6 






TIMPR 


\JnUUr+ / 


RS232DI 


.EQU 


timer" 


"GROUP+8 


RSCOMMAND 


.EQU 


TIMER 


GROUP+9 


RS232DOCOUNT 


.EQU 


TIMER 


GROUP+10 


RS232DICOUNT 


.EQU 


TIMER 


GROUP+11 


RS2320DEL^Y 


.EQU 


TIMER 


GROUP+12 


RS232IDELAY 


.EQU 


TIMER 


GROUP+13 


Jog 


.EQU 


TIMER 


GROUP+14 


RS232PAGE 


.EQU 


TIMER 


GROUP+15 



; LEARN EE GROUP FOR LOOPS ECT 



LEARNEE GRP 


.equ 


20H 






RADIO CMD 


.equ 


LEARNEE 


GRP 




RSSTART 


.equ 


LEARNEE 


GRP+1 




TEMP 


.equ 


LEARNEE 


GRP+2 




LEARNDB 


.equ 


LEARNEE 


GRP+3 


learn debouncer 


LEARNT 


.equ 


LEARNEE 


GRP+4 


learn timer 


ERASET 


.equ 


LEARNEE 


GRP+5 


erase timer 


MTEMPH 


.equ 


LEARNEE 


GRP+6 


memory temp 


MTEMPL 


.equ 


LEARNEE 


GRP+7 


memory temp 


MTEMP 


.equ 


LEARNEE 


GRP+8 


memory temp 


SERIAL 


.equ 


LEARNEE 


GRP+9 


serial data to and from nonvol memory 


ADDRESS 


.equ 


LEARNEE 


GRP+10 


address for the serial nonvol memory 


TOEXT 


.equ 


LEARNEE 


GRP+11 


timer 0 extend dec every TO int 


RSCCOUNT 


.equ 


LEARNEE 


GRP+12 




T125MS 


.equ 


LEARNEE 


GRP+13 


125mS counter 


OnePass 


.equ 


LEARNEE 


GRP+14 




SKIPRADiO 


.equ 


LEARNEE. 


GRP+15 


, flag to skip the radio read and write if 








; learn or vacation are talking to it 


temp 


.equ 


r2 






learndb 


.equ 


r3 


; learn debouncer 


learnt 


.equ 


r4 




learn timer 


eraset 


.equ 


r5 




; erase timer 


mtemph 


.equ 


r6 




, memory temp 


mtempl 


.equ 


r7 




, memory temp 


mtemp 


.equ 


r8 




, memory temp 


serial 


.equ 


r9 




; serial data to and from nonvol memory 



address 
tOext 
t125ms 
skipradio 



.equ 
.equ 
.equ 
.equ 



r10 
r11 
r13 
r15 



, address for the serial nonvol memoi , 
; timer 0 extend dec every TO int 
; l25mS counter 

; flag to skip the radio read and write if 
; learn or vacation are talking to it 



RPMJ3ROUP 


.EQU 


30H 


stackreason 


.equ 


rO 


stackflag 


.equ 


r1 


rpm_temp_hi 


.equ 


r2 


rpm_ternpJo 


.equ 


r3 


rprnjemp 


.equ 


rr2 


rpm_past_hi 


.equ 


r4 


rpm_past_lo 


.equ 


r5 


rpm_past 


.equ 


rr4 


rpm_penod_hi 


.equ 


r6 


rpm_periodJo 


.equ 


r7 


rpm_period 


.equ 


rr6 


rpm_count 


.equ 


r8 


rpm_dif1_hi 


.equ 


r9 


rpm_diff_lo 


.equ 


no 


rpm_2past_hi 


.equ 


M1 


rpm_2past_Jo 


.equ 


r12 


rpm_time_out 


.equ 


r15 


STACKREASON 


.EQU 


RPM GROUP+0 


STACKFLAG 


.EQU 


RPM GROUP+1 


RPM TEMP HI 


.EQU 


RPM GROUP+2 


RPM TEMP LO 


.EQU 


RPM GROUP+3 


RPM PAST HI 


.EQU 


RPM GROUP+4 


RPM PAST LO 


.EQU 


RPM GROUP+5 


RPM PERIOD Hi 


.EQU 


RPM GROUP+6 


RPM PERIOD LO 


.EQU 


RPM GROUP+7 


RPM COUNT 


.EQU 


RPM GROUP+8 


RPM DIFF HI 


.EQU 


RPM GROUP+9 


RPM DIFF LO 


.EQU 


RPM GROUP+10 


RPM 2PAST HI 


.EQU 


RPM GROUP+11 


RPM._2PAST_LO 


.EQU 


RPM GROUP+12 


MinTimer 


.EQU 


RPM GROUP+13 


* TDifference 


.EQU 


RPM GROUP+14 


RPM_TIME_OUT 


.EQU 


RPM GROUP+15 



; RADIO GROUP 



RADIO_GRP 
.RTEMP 
RTEMPH 
RTEMPL 
RTIMEAH 



.equ 40H 

.equ RADIO_GRP 

.equ RADIO.GRP+1 

.equ RADIO_GRP-^2 

.equ RADlO_GRP+3 



; radio temp storage 
; radio temp storage high 
; radio temp storage low 
; radio active time high byte 



Ariz 



RTIMEAL 

RTIMEIH 

RT1MEIL 

RTIMEPH 

RTIMEPL 

RADI03H 

RADI03L 

RADI01H 

RAD101L 

RADIOC 

RTIMEDH 

RTIMEDL 

rtemp 

rtemph 

rtempl 

rtimeah 

rtimeal 

rtimeih 

rtimeil 

rtimeph 

rtimep! 

raclio3h 

radio3l 

radio 1h 

radio 11 

radio c 

rtimedh 

rtlmedl 



equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



RADIO 

RADIO 

RADIO 

RADIO" 

RADIO" 

RADIO 

RADIO 

RADIO 

RADIO 

RADIO 

RADIO" 

RADIO 

rO 

r1 

r2 

r3 

r4 

r5 

r6 

r7 

r8 

r9 

no 

r11 
r12 
r13 
r14 
M5 



GRP+4 

GRP+5 

GRP+6 

GRP+7 

GRP+8 

GRP+9 

GRP+10 

GRP+11 

GRP+12 

GRP+13 

GRP+14 

GRP+15 



radio active time low byte 
radio inactive time high byte 
radio inactive time low byte 
radio past time high byte 
radio past time low byte 
3 mS code storage high byte 
3 mS code storage low byte 
1 mS code storage high byte 
1 mS code storage low byte 
radio word count 

radio difference of active and inactive 

radio difference 

radio temp storage 

radio temp storage high 

radio temp storage low 

radio active time high byte 

radio active time low byte 

radio inactive time high byte 

radio inactive time low byte 

radio past. time high byte 

radio past time low byte 

3 mS code storage high byte 

3 mS code storage low byte 

1 mS code storage high byte 

1 mS code storage low byte 

radio word count 

radio difference of active and inactive 
radio difference 



ForceTablel 



.equ 50H 



ForceOHi 
ForceOLo 
Forcel Hi 
Forcel Lo 
Force2Hi 
Force2Lo 
Force3Hi 
Force3Lo 
Force4Hi 
Force4Lo 
ForceSHi 
ForceS Lo 
Force6Hi 
Force6Lo 
Force7Hi 
Force7Lo 



.equ ForceTable 1 +0 

.equ ForceTablel +1 

.equ ForceTablel +2 

.equ ForceTablel +3 

.equ ForceTablel +4 

.equ ForceTablel +5 

.equ ForceTable 1 +6 

.equ ForceTablel +7 

.equ ForceTablel +8 

.equ ForceTablel +9 

.equ ForceTablel +10 

.equ ForceTablel +1 1 

.equ ForceTablel +12 

.equ ForceTablel +1 3 

.equ ForceTablel +1 4 

.equ ForceTablel +1 5 



force at the bottom of the door 



force at the worst case top 



force address pointer 



ForceTable2 



.equ 60H 



Force8Hi 
Force8Lo 
Force9Hi 
Force9Lo 
Forcel OHi 



.equ ForceTable2+0 

.equ ForceTable2+1 

.equ ForceTable2+2 

.equ ForceTable2+3 

.equ ForceTable2+4 



force at the bottom of the door 



(' 



ForcelOLo 
Force 11 Hi 
Fcrcel 1 Lo 
Force 12Hi 
Force12Lo 
Force 13Hi 
Force 13Lo 
Force 14Hi 
Force14Lo 
ForceTemp 
ForceAddress 



.equ ForceTabie2-»-5 

.equ ForceTable2+6 

.equ ForceTable2-r7 

.equ ForceTabie2+8 

.equ ForceTable2+9 

.equ ForceTable2-r 1 0 

.equ ForceTabie2+1 1 

.equ ForceTabie2+12 

.equ ForceTable2+1 3 

.equ ForceTabie2+1 4 

.equ ForceTable2+1 5 



force at the worst case top 



force address pointer 



forcetemp 
forceaddress 



.equ 
.equ 



r14 

r15 



FORCEJ3RP 

CHECK_GRP 

check_surn 

rom_data 

test_adr_hi 

test_adrJo 

test_adr 

forces 

up_force_hi 

up_forceJo 

dn_force_hi 

dn_forceJo 

position_hi 

positionjo 

CHECKSUM 
ROM_DATA 

FORCES 



.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 

.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 

.equ 
.equ 



70H 

70H 

rO 

r1 

r2 

r3 

rr2 

rO 

r1 

r2 

r3 

r4 

r11 

r12 

r14 

CHECKJ3RP+0 
CHECK GRP+1 



; check sum pointer 



.equ FORCE_GRP 



; check sum reg for por 
; data read 

force max during seeing 
3 = MAX force 10mS 
2 = Hi force 9 mS 
1 m MID force 8.25 mS 
else » LOW force 7.75 mS 



UP FORCE HI 


.equ 


FORCE 


GRP+1 


UP FORCE LO 


.equ 


FORCE 


GRP+2 


DN FORCE HI 


.equ 


FORCE 


GRP+3 


DN FORCE LO 


.equ 


FORCE 


GRP+4 


AOBSF 


.equ 


FORCE 


GRP+5 


FAULTCODE 


.equ 


FORCE 


GRP+6 


AOBSTEST 


.equ 


FORCE 


GRP+7 


FAULTTIME 


.equ 


FORCE 


GRP+8 


RPM_ACOUNT 


.equ 


FORCE 


GRP+9 


UpDown 


.equ 


FORCE 


GRP.10 



up to down direction change timer 



fir 14 



( 



rUoi i iUN_Mi 


.equ 


FORCh_GRP-t-1 1 




rOS!T10N_L0 


.equ 


F0RCE_GRP-f12 




P5UTD 


.equ 


FORCE GRP+13 




L_A_C 


.equ 


FORCE GRP+14 


; limits are changing 


AOBS_FLAG 


.equ 


FORCE_GRP-,15 


; flag for pass point 


PRADICM3RP 


.equ 


80H 




SDISABLE 


.equ 


PRADIO_GRP+0 


system disable timer 


PRADI03H 


.equ 


PRADIO_GRP+1 


3 mS code storage high byte 


PRADI03L 


.equ 


PRADIO_GRP+2 


3 mS code storage low byte 


PRADI01 H 


.equ 


PRADIOJ3RP+3 


1 mS code storage high byte 


rHADIOl L 


.equ 


PRADIO_GRP+4 


1 mS code storage low byte 


HI U 


.equ 


PRADIO_GRP+5 


radio time out 


RFLAG 




r nnulU Onr -fO 


raoto nags 


RINFILTER 


.equ 


PRADIO GRP+7 


radio input filter 


LIGHT1 S 


.equ 


PRADIO GRP+8 


light timer for 1 second flash 


DOG2 


.equ 


PRADIO GRP+9 


second watchdog 


GotSwitch 


.equ 


PRADIO GRP+OAH 


found a switch set 


FAULTFLAG 


.equ 


PRADIO GRP-fOBH 


flag for fault blink stops radio blink 


MOTDEL 


.equ 


PRADIO GRP+OCH 


motor time delay 


LIGHTS 


.equ 


PRADIO GRP+ODH 


light state 


DELAYC 


.equ 


PRADIO GRP+OEH 


for the time delay for command 


WIN FLAG 


.equ 


PRADIO GRP+OFH 


flag for the operation of the window 



for the pass point 
0 a skip pass point window 
not 0 do pass point 



FORCE2 GRP 


.equ 


090H 






MAX F HI 


.equ 


FORCE2 


GRP 


temp storage for the max force reading 


MAX F LO 


.equ 


FORCE2 


GRP+1 




P32 MAX H! 


.equ 


FORCE2 


GRP-r2 


, delayed storage every 32 steps 


P32 MAX LO 


.equ 


FORCE2 


GRP+3 




AOBSRPM 


.equ 


FORCE2 


GRP+4 


; the count of rpm pulses from aobs 


UP LIM HI 


.equ 


FORCE2 


GRP+5 


; the up limit count 


UP LIM LO 


.equ 


FORCE2 


GRP+6 


; the up limit count 


DN LIM HI 


.equ 


FORCE2 


GRP+7 


; the down limit count 


DN LIM LO 


.equ 


FORCE2 


GRP+8 


the down limit count 


AOBSB 


.equ 


FORCE2 


GRP+9 


the RPM count of the protector break 


AOBSNB 


.equ 


FORCE2 


GRP+10 ; 


the RPM count of protector make 


AOBSSTATUS 


.equ 


FORCE2_ 


J3RP+11 ; 


the protector sta > 00 beam mace 








FF beam broken 


AOBSSTATE 


.equ 


FORCE2_ 


_GRP+12 ; 


the state of the zero point test 



00 waiting for first block 

01 = blocked < 12 counts 

clear unblocked 

02 = waiting for unblocked 

(is blocked > 30) 

03 = unblocked < 12 counts 

clear Mocked 

04 = waiting for blocked 

(is unblocked > 30) 

05 = blocked < 12 counts 

clear unblocked 

06 = waiting for unblocked 

(is blocked > 30) 



P WIN DOW 
RsTfm^r 



T1 Mirror 



.equ FORCE2_GRP-r13 
.equ FORCE2J3RP+14 



.equ FORCE2_GRP+15 



07 = zero clear AOBSRPM 
clear AOBSSTATE 
window 

RS232 operation timer 4 S inc till FF 
FF = RS232 off switches operational 
else RS232 on switches 
T1 setting mirror 



DB_GROUP 
SW_DATA 
ONEP2 
LAST CMD 



BCODEFLAG 

RPMONES 

RPMCLEAR 

FAREVFLAG 



FLASH_FLAG 

FLASH_DELAY_HI 

FLASH_DELAY_LO 

FLASH_DELAY 

FLASH_COUNTER 

REASON 



LIGHT_FLAG 
CMD_DEB 
LIGHT_DEB 
VAC DEB 



.EQU 0A0H 

.EQU DB__GROUP 

.EQU DB_GROUP+1 

.EQU DB GROUP^-2 



.EQU DB GROUP+3 



.EQU 
.EQU 
.EQU 



.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 



.EQU 
.EQU 
.EQU 
.EQU 



DB_GROUP+4 
DBJ3ROUP+5 
DBJ3ROUP+6 



DBJ3ROUP+7 

DB_GROUP+8 

DB_GROUP+9 

DB_GROUP+8 

DBjGROUP+OAH 

DB GROUP+0BH 



DB_GROUP+0CH 
DB_GRO,UP+0DH 
DBJ3ROUP+0EH 
DB GROUP+0FH 



1.2 SEC TIMER TICK .125 
LAST COMMAND FROM 
= 55 WALL CONTROL 
= 00 RADIO 
= AA RS232 
B CODE FLAG 
77 = b code 

RPM PULSE ONE SECOND DISABLE 
RPM PULSE CLEAR JEST TIMER 
RPM FORCED AREV FLAG 
88H FOR A FORCED REVERSE 



;00 


COMMAND 


; 10 


RADIO COMMAND 


;20 


FORCE 


;30 


AUXOBS 


;40 


AUTOREVERSE TIMEOUT 


; 50 


LIMIT 


; 60 


EARLY LIMIT 


;70 


MOTOR MAX TIME OUT 


;80 


FORCED AREV FROM RPM 


; 90 


CLOSED COMMAND HELD 


; AO 


CLOSED WITH RADIO HELD 


; fo 


No pass point 



BACKUP_GRP .equ 
Learn Led .equ 



0B0H 

BACKUP GRP+0 



led control 

00XX XXXX = Led Blink from radio 
01 XX XXXX = Blink From Fault 
10XX XXXX = Learn mode 
XXFF FFFF - off 



') 



RsMode 




.equ 


BACKUP_ 


_GRP+1 


ForceAddHi 




.equ 


d a \s i in 
DAOKUr_ 


_GRP+2 


ForceAddLo 




equ 


DAUKUr_ 


_GRP+3 


ForceAdd 




.equ 


bAUKUr_ 


_GRP+2 


MotorTempHi 




equ 


BACKUP_ 


_GRP+4 


MotorTempLo 




.equ 


BACKUP 


GRP+5 


MotorTemp 




.equ 


DnUMJr 


Larir +4 


Temperature 




.equ 


backup" 


"GRP+6 


P8Counter 




.equ 


BACKUP 


GRP+7 


PastTemp 




.equ 


BACKUP 


GRP+8 


BRPM TIME OUT 


.equ 


BACKUP 


GRP+9 


BFORCEJGNORE 


equ 


BACKUP 


GRP+OAH 


BSTATE 




.equ 


backup" 


GRP+OBH 


BAUTO DELAY 


HI 


.equ 


BACKUP 


GRP+OCH 


BAUTO DELAY 


_LO 


.equ 


BACKUP 


GRP+ODH 


BAUTO DELAY 




.equ 


BACKUP 


GRP+OCH 


BCMD DEB 




.equ 


BACKUP 


GRP+OFH 



; XXNN NNNN count at 3mS rate 

, = 232D it RS232 only set from U code 

; force adder From temperature 



STACKTOP 


.equ 


238 


; start of the stack 


STACKEND 


.equ 


OCOH 


; end of the stack 


RS2320S 


.equ 


00010000B 


; RS232 output bit set 


RS2320C 


.equ 


11101111B 


; RS232 output bit clear 


RS2320P 


.equ 


P3 


; RS232 output port 


RS232IP 


.equ 


PO 


; RS232 input port 


RS232IM 


.equ 


01000000B 


; RS232 mask 


RslnputModeAnd 


.equ 


10101 1 1 1 B 




RslnputModeOr 


.equ 


10100000B 




RsOutputModeAnd 


.equ 


10101111B 


r 


RsOutputModeOr 


.equ 


10100000B 




csh 


.equ 


00010000B 


chip select high for the 93c46 


csl 


.equ 


11101111B 


chip select low for 93c46 


clockh 


.equ 


00001 000B 


clock high for 93c46 


dock! 


.equ 


11110111B 


clock low for 93c46 


doh 


.equ 


000001 00B . 


data out high for 93c43 


dol 


.equ 


11111011B 


data out low for 93c46 


psmask 


.equ 


01 000000 B 


mask for the program switch 


csporl 


.equ 


P2 


chip select port 


dioport 


.equ 


P2 


data i/o port 


clkporl • 


.equ 


P2 


clock port 


psport 


.equ 


P2 


program switch port 


WATCHDOG J3ROUP 


.EQU 


0FH 




peon 


.equ 


r0 




smr 


.equ 


r11 




wdtrnr 


equ 


r15 





A -n 



V 



WDT .macro 

.byte 5fh 
.endm 



FILL 



TRAP 



TRAP10 



.macro 
.byte OFFh 
.endm 



.macro 

jp start 

jp start 

jp start 

jp start 

jp start 

.endm 

.macro 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

TRAP 

.endm 



;* Interrupt Vector Table 

,* 

> 

.******* *************************** ************************** ************ 

.IF E21 



.org OOOOH 



.word RADIOJNT 

.word RADIOJNT 

.word AUX_OBS 

.word RPM 

.word Timerl Int 

.word Timer2lnt 



;tRQO. P3.2 

;IRQ1, P3.3 
;IRQ2, P3.1 
;IRQ3, P3.0 
;IRQ4. TO 
;IRQ5, T1 



.ELSE 

.org OOOOH 

.word RADIOJNT 

.word OOOCH 

.word RPM 

.word AUX_OBS 

.word Timerl Int 

.word Timer2lnt 

.ENDIF 



A -if 



;IROO P3.2 
;IRQ1, P3.3 
;IRQ2. P3.1 
;IRQ3. P3.0 
JRQ4. TO 
;IRQ5, T1 



.page 

.org OOOCH 
jp START 



; start jmps to start at location 0101 



RS232 DATA ROUTINES 



; enter rs232 start with word to output in rs232do 

RS2320START. 







set the Output mode 


or 


RS2320P,#RsOutputModeOr 




and 


RS2320P,#RsOutputModeAnd 




push 


rp 


save the rp 


srp 


#TIMER_GROUP ; 


set the group pointer 


cp 


rs232odelay,#00H 


test for ready 


V 


z, RsReady 




djnz 


rs232odelay, NORSIN 




RsReady: 






clr 


RSSTART 


, one shot 


id 


rs232odeiay,#04 


set the period 


clr 


rs232docount 


, start with the counter at 0 


or 


RS2320P,#RS2320S 


, set the output 


i r 


NORSIN 


RS232: 






cp 


RSSTART ,#0FFH 


; test tor the start flag 


V 


z,RS2320START 




RS2320UTPUT: 




push 


rp 


; save the rp 


srp 


#TIMER_GROUP 


; set the group pointer 


cp 


rs232docount.#11d 


; test for last 


v 


ult,RS232R 




v 


ugUnputMode 




and 


RS2320P,#RS2320C 


; clear the output 


inc 


rs232docount 


; one shot 


InputMode. 




, set the input mode 


or 


RS2320P.#RslnputModeOr 




and 


RS2320P.#RslnputModeAnd 





JR 



RS232R 



Id 

djnz 
inc 
scf 
rrc 



NORSOUT 

rs232djcount,#0F0H 
rs232ode!ay, NORSIN 
rs232docount 

rs232do 



set a time delay 

cycle count time delay 

set the count for the next cycle 

set the carry flag for stop bits 

get the data into the carry 



( 



or 
j r 

RS232SET: 
and 

SETTIME: 
W 
i r 

NORSOUT: 
RS232INPUT: 



CRS232SET 

RS2320P,#RS2320S 
SETTIME 

RS2320PJRS2320C 

rs232odelay,#4d 
NORSIN 



; if the bit is high then set 

; set the output 

; find the delay time 

; clear the output 

; set the data output delay 



cp 


rs232dicount , #0F FH 


i r 


nz,RECEIVING 


tm 


RS232IP,#RS232IM 


j r 


nz, NORSIN 


clr 


rs232dicount 


Id 


rs232idelay,#2d . 


RECEIVING: 




djnz 


rs232idelay,NORSIN 


inc 


rs232dicount 


cp 


rs232dicount,#10d 


jr 


z,DIEVEN 


tm 


RS232IP,#RS232IM 


rcf 




jr 


z,SKIPSETTING 


set 




SKIPSETTING: 




rrc 


rs232di 


Id 


rs232idelay,#4d 


jf 


NORSIN 


DIEVEN: 




Id 


rs232dicount,#0FFH 


Id 


rscommand,rs232di 


clr 


RSCCOUNT 


NORSIN. 




pop 




ret 





; test mode 

; if receiving then jump 

; test the incoming data 

; if the line is still idle then skip 

; start at 0 

; set the delay to 1/2 

; skip till delay is up 

; bit counter 

; test for last timeout 

; test the incoming data 
; clear the carry 

; if input bit not set skip setting carry 
; set the carry 

; save the data into the memory 
; set the delay 



; turn off the input till next start 
; save the value 
; clear the counter 

; return the rp 



.org 101H 
; REGISTER INITILIZATION 



; start address 



start. 
START: 



di 

.IF E21 

xor P1 ,#00000001 B 
.ELSE 



; turn off the interrupt for init 
; Kick the externa! dog 



Id RP.#WATCHDOG_GROUP 

Id wdtmr,#00001 1 1 1 B ; rc dog 1 0OmS 

VVDT , kick the dog 

.ENDIF 

clr RP ; clear the register pointer 



Internal RAM Test and Reset All RAM = mS 



srp #OFOh ; point to control group use stack 

Id r1 5 ,#4 ;r1 5= pointer (minimum of RAM) 

wrlte_aga»n. 

.IF E21 

xor P1 ,#00000001 B ; Kick the external dog 

.ELSE 

WDT ; KICK THE DOG 
.ENDIF 

Id r14,#1 
write_again1 . 

Id <2>r15,r14 ;write 1,2,4,8,10,20,40,80 

cp M4,@r15 ;then compare 

jr ne,system_error 

rl r14 

jr nc.write_again1 

clr @r1 5 ;write RAM(r5)=0 to memory 

inc r15 

cp r15,#240 

jr ult,write_again 



; STACK INITILIZATION 



STACK. 

clr 254 

Id 255,#238D ; set the start of the stack 

Id P0,#P01SJNIT ; RESET all ports 

Id P2,#P2SJNIT ; 

Id P3 f #P3SJNIT ; 

Id P01 M t #P01 MJNIT ; set mode p00-p03 out p04-p07in 

Id P3M,#?3M JN!T ; set port3 p30-p33 input analog mode 

; p34-p37 outputs 

Id P2M,#(P2MJNn+0) ; set port 2 mode 



Checksum Test 



CHECKSUMTEST 

srp #CHECK_GRP 

Id test_adr_hi,#0FH 

Id test_adr_lo,#0FFH maximum address=fffh 

add_sum. 

.IF E21 

xor Pi ,#00000001 B ; Kick the external dog 



.ELSE 

WDT ; KICK THE DOG 
.ENDIF 

call PORTINIT ; port initiation 

Idc rom_data.@test_adr T ead ROM code one by one 

add check_sum.rom_data ;add it to checksum register 

decw test_adr increment ROM address 

jr nz.add_sum ;address=0 ? 

cp check_sum,#check_sum_value 

jr system_ok ;temp test 

jr z,system_ok ;check final checksum = 00 ? 

system_error. 

and P3,#O01 11 1 11 B ; turn off both outputs 

or P3,#01 000000B ; turn on the led 

jr system_error 

.byte 256-check_sum_ value 
system_ok. 

.IF E21 

xor P1 ,#00000001 B ; Kick the external dog 
.ELSE 

WDT ; KICK THE DOG 
.ENDIF 

Id STACKEND,#STACKTOP ; start at the top of the stack 
SETSTACKLOOP: 

Id @STACKEND,#01 H ; set the value for the stack vector 

dec STACKEND ; next address 

cp STACKEND.#STACKEND ; test for the last address 

jr nz.SETSTACKLOOP ; loop till done 

CLEARDONE. 

Id STATE,#05d ; set the state to DOWN POSITION 

Id BSTATE,#05d ; FORCING UP TRAVEL FIRST STEP 

Id LIGHT JTiMERJ-H,#SET_TIME_HI ; set the light period 

Id LIGHT_TIMER_LO,#SET_TIME_LO ; for the 4.5 min timer 

Id PRE_LIGHT,#SET_TIME_PRE ; 

Id CMD_DEB,#0FFH ; in case of shorted switches 

Id BCMD_DEB.#OFFH ; in case of shorted switches 

Id VAC_DEB,#0FFH ' ; 

Id LIGHT_DEB,#0FFH ; 

Id ERASET,#0FFH ; set the erase timer 

Id LEARNDB,#0FFH ; s?t the learn debouncer 

Id LEARNT, #0FFH ; set the learn timer 

Id RTO,#0FFH ; set the radio time out 

Id RS232DOCOUNT,#012d ; 

Id RPMONES,#244d ; set the hold ofi 



; TIMER INITILIZATION 



TIMER: 

Id PREO.#00001001B ; set the prescaler to / 2 for 8Mhz 

Id T0.#000H ; se t the counter to count FF through 0 

Id PRE1. #00001 01 1B ; set the prescaler to / 2 for 8Mhz 

Id T1 Mirror.#SwPenod ; set the period to 300uS for switches 

Id T1.T1 Mirror ; 

Id TMR.#00001111B ; turn on the timer 

call PORT I NIT ; in.t the ports 



; SET PORTS AND DIVIDER 



.IF E21 
.ELSE 

Id RP,#WATCHDOG_GROUP 

Id smr.#00100010B ~ ; reset the xtal / number 

Id pcon.#01 11 1 1 1 0B ; reset the peon no comparator output 

; no low emi mode 

.ENDIF 

Id PRE0,#00001 001 B ; set the prescaler to / 2 for 8Mhz 



; READ THE MEMORY AND GET THE VACFLAG 



Id SK!PRADIO,#0FFH 

srp #LEARNEE_GRP 

- Id address,#AddressVacation ; set non vol address to the VAC flag 

cat! READMEMOR Y ; read the value 2X 1 X INIT ' 

call READMEMORY ; read the value 

Id VACFLAG.mtemph ; read into volita! 



; READ THE TEMPERATURE 



clr IMR ; turn off all interrupts 

Id ADDRESS,#AddressTemperature ; read the motor temp from nonvol 

cali READMEMORY ; read the memory data 

clr IMR ; turn off all interrupts 

Id MotorTempHi.MTEMPH ; 

Id MotorTempLo.MTEMPL ; 

call TempMeasure ; read the temp 



; Reset the machine according to last state 



id 



call 



address,#AddressLastOperation 

; get the last operation 
READMEMORY ; 



id 


POSITION_Hi.#07FH 


; set the position to the temp 


id 


POSITION_LO.#0D4H 


; limit till pass point 


id 


STATE,mtemph 




and 


STATE,#00001 111 B 


; remove the reason 


call 


ReadLimits 


; read the limits 


Id 


ADDRESS,#AddressDownForceTable 


; point to the down force table 


cp 


STATE,#5d 


; test for the down limit 


V 


z,DownWake 


; if so set the down limit 


cp 


STATE,#2d 


; test for at the up limit 


V 


z,UpWake 


; if so then set the up limit 


\ x 


MidWake 


; else in mid travel wake up 


Down Wake: 






Id 


POSITION HLDN LIM Hi 


; set the position as the down 


id 


POSITION LO,DN LIM LO 


; limit 


inc 


WIN FLAG 


; turn on the window 


V 


Wake 




Up Wake: 




; point to the down force table 


Id 


ADDRESS,#AddressUpForceTabfe 


Id 


POSITION HI, UP LIM HI 


; set the position as the up 


Id 


POSITION LO.UP LIM LO 


; limit 


inc 


WIN FLAG 


; turn on the window 


jr 


Wake 




MidWake: 






Id 


STATE.#6d 


; set the stopped state 


add 


MotorTempHi,#T27 Adder 


; increase temp 



Wake: 

Id BSTATE,STATE 

call ReadForceTable 

call FIND_WINDOW 

clr SKIPRADIO 



; set the backup state 
; read the force table 
; find the window 



; INIT RRUPT INITILIZATION 
SETINTERRUPTS. 



.IF E21 






Id 


IPR,#00101011B 


; set the priority to timer 


.ELSE 






id 


IPR,#00011010B 


; set the priority to timer 


.ENDIF 






Id 


IMR,#ALL ON IMR 


, turn on the interrupt 


.IF 


E21 




Id 


IRQ,#00000000B 


; set the edge dear int 


.ELSE 




; set the edge clear int 


Id 


IRQ,#01000000B 


.ENDIF 







61 ; enable interrupt 



; MAIN LOOP 



MAINLOOP. 

clr DOG2 ; C | ear the secon< j watchdog 

cp Jog,#055H ; test for jog up 

jr z.DoJogUp ; 
cp Jog.#OAAH J test for jog down 

jr z,DoJogDn 

jr JogSkip 
DoJogUp. 

sub UP_LIM_LO,#1 Od ; jog the limit 

sbc UP_LIM_HI,#OOH 

jr JogMem 

DoJogDn- 

add UP_LIM_LO,#1 Od ; jog the limit 

adc UPJJM_HI,#O0H 

JogMem* 

c,r ^og ; on e shot 

Id SKIPRADIO,#0FFH ; 

Id ADDRESS,#AddressUp Limit ; set non vol address to the up limit 

Id MTEMPH,UP_LIM_Hi ; save into nonvolital 

Id MTEMPL,UP_LIM_LO ; 

call WRITEMEMORY ; write the value 

clr SKIPRADIO ; 

ld L_A_C,#30H ; set the jog operation 

JogSkip: 

cp OnePass, STATE ; test if read out of memory aliready 

jr z,SkipMemoryRead ; if so then skip reading out ot memory 

cp L_A_C,#42H ; test if in learn mode 

jr uge.LeamSkipMemoryRead ; if so then skip reading out of memory 

cp STATE,#1d ; test for the up state 

jr z.UpTableRead ; if so read the up table 

cp S^ATE ,#4d ; test for the down state 

jr z,i ownTabieRead ; if so read the down table 

jr SkipMemoryRead ; else skip 

DownTableRead 

Id SKIPRADIO,#0FFH ; turn off the radio read 

Id ADDRESS,#AddressDownForceTable ; read the down force table 

call READMEMORY ; dummy read 

call ReadForceTable ; read th.e force table 

clr SKIPRADIO ; allow the radio function 

id OnePass,STATE ; save the state 

jr SkipMemoryRead ; 

UpTableRead 

Id OnePass,STATE ; save the state 

Id SKiPRADIO ( #0FFH ; turn off the radio read 



Id ADDRESS,#AddressUpForceTable ; read the up force table 

call READMEMORY ; dummy read 

call ReadForceTable ; read the force table 

clr SKIPRADIO ; allow the radio function 

Id OnePass,STATE ; save the state 

jr SkipMemoryRead ; 

LeamSkipMemory Read: 

Id OnePass,STATE ; save the state 

SkipMemoryRead: 

cp L_A_C,#42h ; test for in learn mode 

jr uge,SkipReadForce ; if so then skip reading the force 

call ReadForce ; read the present force value 

SkipReadForce: 

call PORTREF ; refresh the ports 

srp #FORCEj3RP ; set the rp 

cp La_c,#030H ; test for learn action 

jp ult.CLRLAC ; if less then then clear number 

cp l_a_c,#042H ; test for active learn limits 

jr uge.LearnLimits 

cp l_a_c,#32H ; test for the end of jog 

jp ugtCLRLAC ; if so then clear 

cp l_a_c,#30H ; test for stop 

jp z,G30 

cp l_a_c,#31 H ; test for start travel down 

jp z,G31 

jp G32 ; else delay for up 
LearnLimits: 

cp l_a_c,#04Fh ; test for to large a number 

jp z,STOREFL ; if = store the force and limits 

jp ugt,CLRLAC ; if greater or = clear 

. clr WIN_FLAG ; turn off the window 

cp J_a_c,#042H ; test for state 42 

jp z,G42 ; if so then stop motor and set force 

cp l_a_c,#043H ; test for state 43 

jp z,G43 ; if so time delay then up 

cp l_a_c,#044H ; test for state 44 

jp z,G44 ; if so travel up till cmd release 

cp I_a_c,#045H ; test for state 45 

jp z,G45 ; if so clear timer set next state 

cp l_a_c.#046H ; test for state 46 

jp z,G46 * ; if so time delay then down 

cp La_c.#04AH ; test for state 4A 

jp z,G4A ; if so clear timer set next state 

cp l_a_c.#04BH ; test for state 4 B 

jp z,G4B ; if so time delay then down 

cp l_a_c,#04DH ; test for state 4 D 



jk 


z G4D 


if so store the force fable and 




set the ud force table oointer 


IP 


1 AOCS 


■ pIco pvif 


G42: 






mc 


forces 


; increase the forces 


cp 


Inrroc if-A^ 
lOrOtrb.rrUO 


* ioct i r\r iho m o v c^ttinn 
, itfol IUI Hit? ilidA bfcfiuny 


J r 






cir 


forces 


, resei it ai ine max 








cp 




• f oct fr\r fho mo y fnr^o 
, Itibl ILH lilt? if id a iui Of 




n? FDRPFPT 
I iZ.. i unuLt 1 


, II » i\Ji llltMi lool IV/I IUI LC £. 5CIUI ly 


FORCES. 






Id 


dnJorce_lo,#088H 


; set the force to MAX 


Id 


VJl I IUI Ufc; l H,frU i On 




l r 


rUHUtot I 










cp 


forces, wod. 


* frt**f frt.r 4 rt rt ninn frtr/">£i 

, lesi Tor ine nign Torce 


i r 


nz,rL>KUt 1 | 


• if i-k rt+ 4 rt o f f rt r mi f\ \ 

, n noi lesi Tor rnio i 


rUKOb<£. 






Id 


o n_i o rce_i o , w u y 4 n 


, sei me Torce to ni 


id 


dn_torce_ni,#0l l H 






rOHCbbb 1 




FORCE1T. 






CP 


forces,#01 


; test for mid low 




n2,rUHUbU 


* IP MOT TWP PHRPP l<> MIN 


FORCE 1 : 






id 


dn_torce_io,#u i uh 


t sei ine Torce xo miu 


id 


dn_torce_ni,#0i UH 




k 


rUnutot 1 




rUnUtu. 






la 


on_iorce_io,tfU^ori 


* cot fKii f rtrrt/-, f r\ mirv 
, ot;l lilt? lUFUfc; iU it mi 


10 


on_iorce_rn , tfu u r n 






PPkRPP^PT 




rUnutot i . 






10 


1 ID CmDPC Ull r*lr» f/-\r/"*c> .1 

Ur_rUnuc_ni,an_iorce_ » 




Irt 


1 IP PHRPE- 1 O nn fnrro In 
Ur rUnuL LU,Up tuTOo* IU 


» 


in/- 
II lu 


I A C. 
i- r\_ w 


' set the next state 




P^l ITH 




jp 






G30. 






cp 


STATE^DNDIRECTION 


; test for traveling 


V 


z, Delay 30 




cp 


STATE,#UP_DIRECTION 


» 


J r 


2,De!ay30 




inc 


LAC 


, set the next state 


Id 


P5UTD.#11d 


; delay short 


JP 


LACCS 




Deiay30 






clr 


P5UTD 


, clear the timer 


call 


SET__STOP_STATE 


; stop the machine tor .5 sec 





jp 


LACCS 


G31: 






cp 


P5UTD.#012d 




ip 


nz.LACCS 




cir 


P5UTD 




Id 


LAST CMD #055H 




Id 


SW DATA,#CMD SVV 




JP 


LACCS 


G32. 






cp 


P5UTD.#012d 




JP 


nz.LACCS 




cir 


P5UTD 




id 


LAST CMD,#055H 




Id 


SW DATA.#CMD SW 




JP 


LACCS 


G43: 








cp 


P5UTD,#06d 




JP 


nz.LACCS 




call 


SET UP DIR STATE 




JP 


LACCS 


G44: 






cp 


CMD DEB,#OFFH 




jr 


z.LACCS 




cir 


FourDFIaq 




call 


SET UP POS STATE 




JR 


LACCS 


G45: 






G4A: 








cir 


P5UTD 




inc 


I a c 






LACCS 


G46: 






di 






cir 


POSITION HI 




cir 


POSITION_LO 




ei 




G4B: 








cp 


P5UTD,#6d 




V 


ne, LACCS 




cp 


i_a__c,#4BH 




jr 


nz,SkioDownlnit 


SetDownPointer: 




push 


RP 




srp 


#ForceTable2 




Id 


forceaddress ,#ForceOHi 




Id 


force1ernp,#15d 


DownForcelnit- 






Id 


<2>f orceaddress, DN_FOR C E_H I 




inc 


forceaddress 




Id 


@f orceaddress. DN_FORCE_LO 




inc 


forceaddress 




djnz 


forcetemp. DownForcelnit 




Id 


forceaddress,POSITION_HI 




com 


forceaddress 



; test for the delay 
; if not the skip 
; clear the timer 

; set the last command as wall cmd 
; set the switch data as command 



; test for the delay 
if not the skip 
clear the timer 

set the last command as wall cmd 
set the switch data as command 



; test for the delay 
; if not the skip 



; test for the command being held 

; clear the flag 

; set the up position state 



; clear the timer 



; clear the position 



;DEUW <. 5 SECONDS 
; if not just wait 
; test for set 



; set the rp 

; set the address pointer to fill 
; set the number of address 

; set the initial value 



; loop till done 

; get the position 

; turn it into the pointer 



inc 
cp 

K 
clr 



Dn2X 



rcf 
rlc 
add 
pop 
SkipDownlnit: 
call 
K 



G4D. 



cp 
inc 



forceaddress 
forceaddress,#ODH 
ult,Dn2X 
forceaddress 



forceaddress 

forceaddress.#ForceOHi 

RP 



SET_DN 
LACCS 



DIR STATE 



FourDFIag,#00 

nz,LACCS 

FourDFlag 



StoreDownForceTable : 

Id ForceO Hi , P 32_ M A X_H I 

Id ForceOLo,P32_MAX_LO 

Id ADDRESS, #Address Down ForceTable 

call StoreForceTable 



; test for the max 
; if not skip zeroing 

*2 



test for 1 time only operation 
if not skip 



; set the force to P32 for the reverse 



SetUpPointer: 



push RP 

srp #ForceTable2 

Id forceaddress, #ForceOHi 

Id forcetemp,#15d 
UpForcelnit: 

Id . @forceaddress f UP_FORCE_HI 

inc forceaddress 

Id @forceaddress,UP_FORCE_LO 

inc forceaddress 

djnz forcetemp,UpForcelnit 

Id forceaddress,#ForceOHi 

pop RP 



set the rp 

set the address pointer to fill 
set the number of address 

; set the initial value 



; loop till done 



LACCS 



; exit 



CLRLAC: 
clr 

LACCSE: 
clr 

LACCS 

El 
cp 

J r 
cp 

V 



l__a_c 
P5UTD 



VACCHANGE,#OAAH 
nz,NOVACCHG 
VACFLAG,#OFFH 
z.MCLEARVAC 



; clear the L_A_C reg 

; clear the tinier for .5 reverse 



; test for the vacation change flag 
; if no change the skip 
; test for in vacation 
; if in vac clear 



/J- 



Id 


VACFLAG,#OFFH 




SETVACCHANGE 


MCLEARVAC: 




clr 


VACFLAG 


SETVACCHANGE: 


cir 


VnuunnlMuC 


IH 


OrvirnnL/IL/.rUr in 


IH 
\Q 




IH 


MTEMPH VACFLAG 


10 


MTPMPI V/APFI Af^ 


Call 


WRITFMFMORY 


Cm 


Qk'IPR Anin 
O rv 1 r v\r\ U 1 \J 


inv_) v AO vtio . 




C P 




V 


z, WriteTheTemperature 


cp 


CTAr^k'Pl A^i ifHPPW 


i r 


nz.NUOHANoto i 


srp 


#LEARNEE GRP 


Clr 


STACKFLAG 


Id 


SKIPRADIO,#0FFH 


Id 


address,#AddressCounter 


call 


READMEMORY 


inc 


mtempi 


i r 


nz, COUNTERDONE 


inc 


mtemph 


v 


nz,COUNTERDONE 


call 


WRITEMEMORY 


inc 


address 


call 


READMEMORY 


inc 


mtemp! 


v 


nz.COUNTERDONE 


inc 


mtemph 


COUNTERDONE: 


call 


WRITEMEMORY 


CDONE: 




Id 


address,#Addressl_astOperation 


Id 


mtemph, STACKREA'SON 


or 


mtemph,STATE 


Id 


mtempi, mtemph 


call 


WRITEMEMORY 


clr 


SKIPRADIO 


WriteTheTemperature : 


call 


WriteTemperature 


NOCHANGEST: 


call 


LEARN 


di 




cp 


BRPM TIME OUT.RPM TIME OUT 


V 


z.TESTRPM 


RESET: 




JP 


START 


TESTRPM: 




cp 


BFORCE IGNORE, FORCE IGNORE 


V 


nz,RESET 


ei 




di 





; set vacation 
; set the change 

; clear vacation mode 

; one shot 
; set skip flag 

; non vol address to the VAC flag 
; store the vacation Hag 

> 

; write the value 
; clear skip flag 

; test for temperature storage 
; if so save it 
; test for the change flag 
; if no change skip updating 

; set the register pointer 
; clear the flag * 
; set skip flag 

; set the non vol address to the cycle 
; read the value 

; increase the counter lower byte 

; increase the counter high byte 

; store the value 
; get the next bytes 
; read the data 

; increase the counter low byte 
; increase the vounter high byte 
; got the new address 



; or in the state 
; set both the same 
; write the value to s -« JCk 
; clear skip flag 



; do the learn switch 



cp BAUTO_DELAY_HLAUTC_DELAY_H! 

jr nz. RESET 

cp B A UTO_DE LA Y_LO , A UTO_D E L A Y_L O 

jr nz,RESET 

cp BCMD_DEB,CMD_DEB 

jr nz.RESET 

cp BSTATE,STATE 

jr nz,RESET 

ei 

TESTRS232. 

SRP #TIMER_GROUP 

cp RSSTART,#OFFH ; test for starting a transmission 

jp z,SkipRS232 ; if starting a trans skip 

cp rscommand, #"Z" ; 

jp ugt,SkipRS232 ; 

cp rscommand,#"(r ; test for in range 

jp uit,SkipRS232 ; if out of range skip 

cp rs232docount,#1 2d ; test for output done 

jp nz,SkipRS232 ; if not the skip 

cp RSCCOUNT,#90H ; test for cr out 

jp nz f CrOutSkip ; no 

call CrOut 

jp SkipRS232 
CrOutSkip: 
di 

push rs__temp_hi ; save the present value 

push rs__tempJo 

push rscommand ; save the command 

sub rscommand ,#"0" ; setup for table 

Id rs_temp_hi,# A hb RS232JumpTabie ; address pointer to table 

Id rs_temp_lo,# A lb RS232JumpTable 

add rsjempjo.rscommand ; look up the jump 3x 

adc rs_temp_hi,#00 ; 

add rs_tempJo,rscommand ; look up the jump 3x 

adc rs_temp_hi,#00 ; 

add rs_tempJo t rscommand ; look up the jump 3x 

adc rs_temp_hi,#00 ; 

call @rs_temp ; call this address 

cp rscommand,#OFFH ; test for cleared command 

jr nz.SaveCommand ; 

pop rs_temp_lo ; throw away value 

jr SaveCommandRet 
SaveCommand: 

pop rscommand ; reset the varables 

SaveCommandRet: 

pop rsjempjo ; 

pop rs_temp_hi ; 

ei 

jp SkipRS232 ; done 

RS232JumpTable: 

jp GOTCO ; 30 

jp GOTC1 ; 31 



Jp 


GOTC2 


, 32 


ID 


GOTC3 


; 33 


ID 

Jr 


G0TC4 


• ^4 


ID 
Jr 


GOTC5 


■ 

, Oj 


ID 
Jr 


GOTC6 


^n 


in 
Jr 


GOTC7 




ID 
Jr 


GOTC8 




ID 
jr 


GOTC9 




ID 
JH 


GOTCNOP 


, On 


JD 
Jr 


GOTCNOP 




ID 

jr 


GOTCLT 




ID 
jr 


GOTCNOP 




IP 


GOTCGT 


; 3E > 


JP 
i r 


GOTCNOP 


; 3F ? 


IP 
jr 


GOTCNOP 


40 <5) 


ID 
JP 


GOTCA 


• 41 


ID 
jr 


GOTCB 


■ 4? 


ID 
Jr 


GOTCC 


• 4*3 


Id 

Jr 


GOTCD 


• 44 


ID 
Jr 


GOTCE 


* 4^ 


ID 
Jr 


GOTCF 


• 4£ 


in 
Jr 


GOTCG 


> ^ ' 


in 
Jr 


GOTCH 


, 


in 
Jr 


GOTCi 


* 4Q 


in 
Jr 


GOTO J 


, *tM 


in 
JP 


GOT PR 


■ / R 
, 4d 


in 




• /IP 
> 40 


in 
Jr 




■ ACi 


in 
JP 




• vlP 


in 
IP 


GOTPO 


• 

, «4r 


in 

*r 


GOTCP 


; 50 


jp 


GOTCQ 


;51 


jp 


GOTCR 


;52 


jp 


GOTCS 


, 53 


jp 


GOTCT 


; 54 


jp 


GOTCU 


; 55 


jp 


GOTCV 


;56 


jp 


GOTCW 


;57 


jp 


GOTCX 


; 58 


jp 


GOTCY 


;59 


jp 


GOTC2 


;5A 



SkipRS232: 
cp 

jP 
c!r 

clr 

ip 



R_DEAD_TIME,#20 

nz.MAlNLOOP 

RADIOC 

RFLAG 

MAINLOOP 



; test for too long dead 
; if not loop 

; clear the radio counter 
; clear the radio flag 
; loop forever 



• Temperature write 



WriteTemperature 



Id 


MTEMPH.MotorTempHi 


get the motor temp 


Id 


MTEMPL.MotorTempLo 




Id 


ADDRESS,#AddressTemperature 


set the address 


Id 


SKIPRADIO,#0FFH 


turn oft the radio memory read 


call 


WRITEMEMORY 


write the data 


clr 


SKIPRADIO 


turn back on the radio 


ret 







.************************************************************************ 

; RS232 SUBROUTINES 



GOTCLT: ; 3C < 

Id Jog,#0AAH ; jog 

jp OnePosC 

GOTCGT: ; 3E > 

Id Jog,#055H ; jog 

jp OnePosC 



GOTCNOP: 
JP 

GOTCO. 

Id 
cp 

V 
or 

CMDSWOPEN: 
cp 

V 
or 

WLSWOPEN: 
cp 

IP 
or 

IP 



OnePosC 



RS232DO,#"CT 
CMD_DEB,#OFFH 
nz,CMDSWOPEN 
RS232DO,#00000001 B 

LIGHT DEB,#0FFH 
nz,WLSWOPEN 
RS232DO,#0000001 OB 

VAC_DEB,#OFFH 
nz,VACSWOPEN 
RS232DO.#000001 00B 
VACSWOPEN 



; no operation skip values 

; SWITCH DATA 

; clear the data 

; test for the command set 

; set the marking bit 

; test for the worklight set 

; set the marking bit 

test fir the vacation set 

set the marking bit 



GOTC1 : ; SYSTEM STATE 

Id RS232DO,#*0" ; start from 0 

cp VACFLAG,#00H ; test the vacation flag 

jr z,NOT!NVACATION 

or RS232DO,#001B ; 

NOTIN VACATION- 

tm pO,#WORKLIGHT ; test for the light on 

jr z,UGHTiSOFF 

or RS232DO,#01 OB ; mark the bit 

LIGHTISOFF: 

tm AOBSF } #00000001 B ; test for aobs error 

jp z,VACSWOPEN 



A- 



or 
JP 



RS232DO,*100E 
VACSWOPEN 



GOTC2: 

Id RS232DO.RPM_PERIOD_LO 

cp RSCCOUNT.#C1 H ; test for on transmitted last cycle 

jp z,LastPos 

Id RS232DO.RPM_PERIOD_HI ; 

jp FtrstPos 

GOTC3: ; SWITCH DATA 

Id RS232DO.#"0" ; clear the data 

cp LEARNDB.#OFFH ; test for learn set 

jr nz.LearnSwitchOpen ; If open skip bit 

or RS232DO,#00000001 B ; set the marking bit 

LearnSwitchOpen 

cp LEARNT. #0FFH ; test for learn mode 

jr z,RSNOT!NLEARN 

or RS232DO.#00000010B 

RSNOTINLEARN. 

Cp WIN_FLAG,#00 rtest for the win flag 

jp z. VACSWOPEN ; if not set leave bit as 0 

or RS232DO,#00000100B 

jp VACSWOPEN 

GOTC4: 

Id RS232PAGE,#O0H 

jp RS232PAGEOUT 

GOTC5: 

Id RS232PAGE,#10H ; 

jp RS232P AGEO UT 

GOTC6: 

Id RS232PAGE.#20H ; 

jp RS232PAGEOUT 

GOTC7: 

id RS232PAGE,#30H • ; 

jp RS232PAGEOUT 



GOTC9. 

call LearnSet 

jp OnePosN 

GOTCA. 

Id rs232do,POSJTiON_LO ; 

cp RSCCOUNT,#01 H ; test for on transmitted last cycle 

jp z.LastPos 



) 



Id 
IP 



o 

03 

u 
m 
o 
yi 

■h 
m 



GOTCB 



Id 

cp 

jP 
Id 
jp 

GOTCC: 
Id 
cp 

JP 
Id 

JP 

GOTCD. 
Id 
cp 

jp 
Id 

jp 

GOTCE: 
Id 
cp 

jP 
Id 

jP 

GOTCF: 



rs232do,POS!TION'_H: 
FirstPos 



rs232do,DN_LIM_LO 
RSCCOUNT,#01 H 
z.LastPos 

RS232DO,DNJJM_HI 
FirstPos 



rs232do,UP_LIM_LO 
RSCCOUNT,#01 H 
z.LastPos 

rs232do,UP_LIM_HI 
FirstPos 



rs232do,MAX_F_LO 
RSCCOUNT,#01 H 
z.LastPos 
rs232do,MAX_F_HI 
FirstPos 



rs232do,DN_FORCE_LO 
RSCCOUNT,#01 H 
z.LastPos 

rs232do,DN_FORCE_HI 
FirstPos 



Id 


rs232do,UP FORCE LO 


cp 


RSCCOUNT,#01 H 


jP 


z.LastPos 


Id 


rs232do,UP_FORCE HI 


jP 


FirstPos 


GOTCG: 




Id 


RS232DO,PWINDOW 


jp 


LastPos 


GOTCH: 




Id 


RS232DO.WIN FLAG 


add 


RS232DO,rcT 


IP 


LastPos 


GOTCi: 




Id 


LAST_C M D,#0 AAH 


call 


CmdSet 


Id 


RS232ODELAY,#100D 


jP 


OnePosN 


GOTCJ: 




Id 


RS232DO.Temperature 


JP 


LastPos 



; test for on transmitted last cycle 



; test for on transmitted last cycle 



test for on transmitted last cycle 



; test for on transmitted Ias1 cycle 



test for on transmitted last cycle 



; read the state 



; read the state 



; give the system a command 

; set the command 

; set a delay of 1 00\2ms = 20mS 



; read the temperature 



GOTCK: 

Id RS232DO ) MotorTempHi ; read the motor temperature 

jp LastPos 

GOTCL- 

cp L_A_C,#41 h , test for the learn limits flag 

jr ugt.inLearnOutForces ; if {n learn then output forces 

Id rs232do,#"9" ; else 9 

jp LastPos ; output 

IhLearnOutForces 

Id rs232do, FORCES ; output forces 

add rs232do,#030h ; 

- jp LastPos 

GOTCM ; give the system vacation switch action 

call VacSet ; set the vacation 

jp OnePosN 

GOTCN: ; give the system a work light command 

cali LightSet ; set the worklight switch 

jp OnePosN 

GOTCO: 

Id rs232do,ForceAddLo ; 

cp RSCCOUNT,#01H ; test for on transmitted last cycle 

jp z, LastPos 

Id rs232do,ForceAddHi ; 

jp FirstPos 

GOTCP. 

di 

Id CMD_DEB,#O0 

Id BCMD_DEB,CMD_DEB 

jp OnePosN 

GOTCQ 
di 

Id CMD_DEB,#OFFH 

Id BCMD_DEB,CMDJ3EB 

jp OnePosN 

GOTCR: 

cp RsRto,#l 01 D ; test for the timer time out 

jr ule,OutputCode ; if timer active then output radio code 

Id RS232DO,#0FFH ; 

jp RCodeOut 
OutputCode: 

cp RSCCOUNT,#0D ; test for the force byte 

jr z.CodeRFirst 

cp RSCCOUNT,#1D 

jr z.CodeRSec 

cp RSCCOUNT,#2D 

jr z.CodeRTh 

Id RS232D0,PRADI01L ; 



\ RCodeOut. 



CD 


RSOCOl INT a^Pi 


\ test tor the end 


ip 


z.LastPos 




jp 


FirstPos 




GodeRFirst 






id 


RS232DOPRADI03H 




k 


RCodeOut 




CodeRSec 






Id 


RS232DO,PRAD!03L 


* 


v 


RCodeOut 




CodeRTh: 






Id 


RS232DO.PRADI01H 


> 


ir 






GOTCS: 






cp 


RSCCOUNT,#0D 


; test for the force byte 


i r 


z.CodeSFirst 


cp 


RSCCOUNT,#1D 




K 


z. CodeSSec 




i r 






SCodeOut: 






cp 


RSCCOUNT,#2D 


; test for the end 


jP 


z.LastPos 




jp 


FirstPos 




CodeSHrst 






Id 


RS232DO,#"0" 




cp 


Temperature,#100D 


■ 


jr 


ult.SCodeOut 




Id 


RS232DO,# M r 




jf 


SCodeOut 


* 


CodeSSec. 






push 


Temperature 


; save the temperature 


cp 


Temperature,#1 OOd 


; remove the last digit 


¥ 


ult, SkipSSub 


sub 


Temperature,#1 OOd 


; 


SkipSSub: 






clr 


RS232DO 


; start at zero for the start bit 


SSecLoop: 






cp 


Temperature,#10d 


; test for loop continue 


jr 


utt,SSecDone 


; test for done 


sub 


Temperature,#10d 




inc 


RS232DO 


, counter increase 


j r 


SSecLoop 




SSecDone. 






pop 


Temperature 


; reset 


add 


RS232DO,#"0* 




K 


SCodeOut 


; done 



CodeSTh. 

; : v V ' 'V . A-37 



push 


Temperature 


; save the temperature 


cp 


Temperature.#1 OOd 


; remove the last digit 


F 


ult.SkipSSub2 


sub 


Temperature,#1 OOd 




SkipSSub2 






clr 


RS232DO 


; start at zero for the start bit 


SThLoop- 




cp 


Temperature,#10d 


; test for loop continue 


i r 


ult.SThDone 


; test for done 


sub 


Temperature, #1 Od 




inc 


RS232DO 


; counter increase 


jr 


SThLoop 




SThDone: 






td 


RS232DO.Temperature 


\ output remainer 


pop 


Temperature 


; reset 


add 


RS232DO,# M 0" 




jr 


SCodeOut 


; done 


GOTCT: 






cp 

r 


RSCCOUNT,#OD 


tp*^t for thp iorrA hvte* 


jr 


z,CodeTFirst 


CD 


RSCCOUNT,#1D 




ir 


z. CodeTSec 




i r 


CodeTTh 




TCodeOut. 






cp 


RSCCOUNT,#2D 


te^t for the pnH 


jP 


z,LastPos 




jP 


FirstPos 




CodeTFirst: 






• Id 


RS232DO,#"0" 




CP 


MotorTempHi,#100D ; 




jr 


ultTCodeOut 




Id 


RS232DO, rr ; 




jr 


TCodeOut 




CodeTSec: 






push 


Motor TempHi ; 


save the temperature 


cp 


MotorTempHi,#100d ; 


remove the last digit 


jr 


ult,SkipTSub ; 


sub 


MotorTempHi,#100d ; 




SkipTSub: 






cir 


RS232DO ; start at zero for the start bit 


TSecLoop: 






cp 


MotorTempHi,#10d ; 


test for loop continue 


V 


ultJSecDone ; 


test for done 


sub 


MotorTempHi,#10d ; 




inc 


RS232DO ; 


counter increase 


i r 


TSecLoop 




TSecDone: 






pop 


MotorTempHi ; 


reset 


add 


RS232DO.r0 H 




i r 


TCodeOut ; done 



A -38: 



CodeTTh: 

push MotorTempHi ; save the temperature 

cp MotorTempHL#l OOd ; remove the last digit 

jr ult,SkipTSub2 ; 

.sub MotorTempHi,#l00d ; 
SkipTSub2: 

clr RS232DO ; start at zero for the start bit 
TThLoop: 

cp MotorTempHi, #1 Od ; test for loop continue 

jr ult.TThDone ; test for done 

sub MotorTempHi,#10d ; 

inc RS232DO ; counter increase 

jr TThLoop 
TThDone: 

Id RS232DO,MotorTempHi ; output remainer 

pop MotorTempHi ; reset 

add RS232DO.r , CT 

jr TCodeOut ; done 



GOTCU: 

Id RsMode ; #232D ; turn on the rs232 mode period 

Id RS232DO.#Version ; read the Version 

and rs232do, #00001 1 11 B ; get the last byte 

add rs232do.ro" ; 

cp RSCCOUNT,#01 H ; test for on transmitted last cycle 

jp z,LastPos 

Id rs232do ^Version ; read the Version 

swap rs232do 

and rs232do, #00001 1 1 1 B ; get the first byte 

• add rs232do,#-0" ; 

jp FirstPos 

GOTCV: 

Id RS232DO ) STATE ; read the state 

add RS232DO,#"0" ; add the offset 

jp VACSWOPEN ; 

GOTCW: 

Id RS232DO.STACKREASON ; read the reason 

swap RS232DO ; 

add RS232DO.#* , 0* ; add the offset 

jp VACSWOPEN ; 

GOTCX: 

Id RS232DO,FAULTCODE ; read the fault 

add RS232DO.#"0" ; add the offset 

jp VACSWOPEN ( ; 

GOTCY: 

clr RS232DO ; start clean 

tm P0,#0001 0000B ; test for first gear strap 

jr z.SkipStrapl 

or RS232DO,#00000001 b ; set the bit 



SkipStrapl . 

tm P0,#001 OOGOOB ; test for the second gear 

jr z,SkipStrap2 ; 
or , RS232DO,#00000010B ; set the bit 

SkipStrap2. 

tm P2,#1 OOOOOOOB ; test for the temperature strap 

jr z,SkipStrap3 ; 

or RS232DO.#000001 DOB ; set the bit 

SkipStrap3: 

add RS232DO.r(T ; add the offset 

jp VACSWOPEN ; 

GOTCZ- 

Id MotorTempHi. Temperature 

call WriteTemperature 

jp OnePosN 



; Store the limits and the up force settings 



STOREFL- 

Id SKIPRADIO,#OFFH ; 

Id ADDRESS,#AddressUpUmit ; set non vol address to the up limit 

Id MTEMPH,UPJJM_HI ; save into nonvolitaf 

Id MTEMPL,UP_LIMJ-0 ; 

cali WRITEMEMORY ; write the value 

• Id ADDRESS,#AddressDownLimit ; set non vol address to the down limit 

Id MTEMPH.DNJJMJHI ; save into nonvolital 

Id MTEMPL, DN_LIM_LO ; 

call WRITEMEMORY ; write the value - 

Sto re Up ForceTab le : 

Id ADDRESS,#AddressUpForceTabIe 

call StoreForceTable 

inc WIN_FLAG ; turn on the /indow 

clr SKIPRADIO ; 

JP CLRLAC • ; return and clear the lac 

First Pos: 

dec RSSTART ; set the start flag 

inc RSCCOUNT ; increase the count 

ret 

OnePosN: 

Id RS232DO.ro" 

jr LastPos 
OnePosC: 

Id .RS232DO,#"@" ; 



LasiPos 




VACSWOPEN: 




Id 


RSCCOUNT,#090H 


dec 


RSSTART 


ret 




CrOut. 




Id 


RS232DO,#00DH 


clr 


RSCCOUNT 


dec 


RSSTART 


Id 


rscommand,#OFFH 


ret 




RS232PAGEOUT: 


Id 


SKIPRADIO,#0FFH 


Id 


ADDRESS, RSCCOUNT 


rci 




rrc 


ADDRESS 


or 


ADDR£SS,RS232PAGE 


call 


READMEMORY 


Id 


RS232DO.MTEMPH 


tm 


RSCCOUNT,#01 H 


jr 


Z.RPBYTE 


Id 


RS232DO.MTEMPL 


RPBYTE: 




clr 


SKIPRADIO 


cp 


RSCCOUNT ,#1FH 


v 


z.LastPos 


V 


First Pos 



; mark to do cr 
; set the start flag 



; set the cr output 
; reset the counter 
; set the start flag 
; turn oft command 



set the skip radio flag 
find the address 



read the data 
; test which byte 



; turn off the skip radio 
; test for the end 



GOTC8. 

Id 
id 
Id 
Id 
id 

WRITELOOP1: 
.IF 
xor 
.ELSE 
WDT 
.ENDIF 
call 
inc 
cp 

Id 

READLOOP1: 
.IF 
xor 

.ELSE 

WDT 

.ENDiF 

call 

inc 

F 



RS232DO,#0FFH 

SK$PRADIO,#0FFH 

MTEMPH,#OFFH 

MTEMPL,#OFFH 

ADDRESS,#00 

E21 

P1 ,#00000001 B 



WRITEMEMORY 

ADDRESS 

ADDRESS,#40H 

nz.WRITELOOPI 

ADDRESS t #00 

E21 

P1 ,#00000001 B 



READMEMORY 
MTEMPH 

nz.MEMORYERROR 



flag set to error to start 
set the skip radio flag 
set the data to write 

start at address 00 



; Kick the external dog 
; KICK THE DOG 



do the next address 
test for the last address 

; start at address 0 



; Kick the external dog 

; KICK THE DOG 

; read the data 
, test the high 
; if error mark 



A 



-4-1 



inc 


MTEMPL 


; test the low 


K 


nz. MEMORYERROR 


. if error mark 


inc 


ADDRESS 


; set the next address 


CD 

> 


ADDRESS,#40H 


; test for the last address 


ir 


nz,READLOOP1 


> 


Id 


MTEMPH #000H 


; set the data to write 


IU 


MTEMPL,#OO0H 






ADDRESS #00 


; start at address 00 


WRITFt OOP2" 






.IF 


E21 






P1 #00000001 B 


; Kick the externa! dog 


.ELSE 






WDT 




; KICK THE DOG 


.ENDIF 






call 


WRITEMEMORY 




inc 


ADDRESS 


; do the next address 


cp 


ADDRESS,#40H 


; test for the last address 




nz,WRITELOOP2 




Id 


ADDRESS,#00 


; start at address 0 


READLOOP2. 






.IF 


E21 




xor 


P1 ,#00000001 B 


; Kick the external dog 


.ELSE 






WDT 




KICK THE DOG 


.ENDIF 




call 


READMEMORY 


; read the data 


cp 


MTEMPH,#00 


; test the high 


K 


nz, MEMORYERROR 


■ if prror mark 


cp 


MTEMPL,#00 


' test the low 


i r 


nz, MEMORYERROR 


; if error mark 


tnc 


ADDRESS 


; set the next address 


cp 


ADDRESS,#40H 


; test for the last address 


) r 


nz,READLOOP2 




call 


CLEARCODES 




clr 


SKIPRADIO 


; clear the skip radio flag 


clr 


RS232DO 


; flag all ok 


MEMORYERROR: 


; set the start flag 


dec 


RSSTART 


Id 


RSCOMMAND,#0FFH 


; turn off command 


IP 


SkipRS232 


; return 



; PORT INITILIZATION 



PORT I NIT 

.-: Id 
Id 
Id 

PORT RE F: 
Id 
Id 



P0,#P01SJNIT 

P2 S #P2S_INIT 

P3,#P3SJN!T 

P01M,#P01MJNIT 
P3M,#P3MJN!T 



Id 



P2M,#(P2MJNIT+0) 



; RESET all ports 



; port refresh 

; set mode p00-p03 out p04-p07in 
; set port3 p30~p33 input analog mode 
; p34-p37 outputs 
; set port 2 mode 



A -4 z 



ret ; return 



; Radio interrupt from a edge of the radio signal 



RADIO INT- 






RP 


srp 


#RADIO GRP 


Id 


rtpmnh TOFXT 






tm 

nit 


inu.ftUUU I UUUUD 


jr 
J' 


2 RTIMFOK 

till ■ iiwiLwrx 


tm 

nil 


rtpmni #ioonnnnhR 


i r 

r 


n l llvi C v^r\ 




nernpn 


n j irvi iz<jr\ . 




cir 


ri_Ufc:AIJ_i 1Mb 






and 


imr,#iiiiiioob 


.ELSE 




and 


IMR,#1 11111 10B 


.ENDIF 




Id 


rtimedh.rtimeph 


Id 


rtimedl,rtimepl 


sub 


rtimedl,rtempl 


sbc 


rtimedh,rtemph 


tm 


rtimedh.#1 0000000 B 




z.RTIMEDONE 


Id 


rtimedh,rtemph 


Id 


rtirned!,rtempl 


sub 


rtimedl,rtimepl 


sbc 


rtimedh.rtimeph 


RTIMEDONE: 




tm 


P3.#00000100B 


jr 


nz. ACTIVETIME 


INACTIVETIME: 


cp 


RINFILTER,#0FFH 


jr 


z.GOINACTIVE 


i r 


RADIO__EXIT 


GOINACTIVE: 




.IF E21 




.ELSE 




or 


irq;#oioooooob 


.ENDIF 




clr 


RINFILTER 


Id 


rtimeih,rtimedh 


Id 


rtimeil.rttmedl 


Id 


rtimeph,rtemph 


Id 


rtimepf,rtempl 


jr 


RADIO_EXIT 


ACTIVETIME: 




cp 


RINFILTER,#00H 



; save the radio pair 

; set the register pointer * 

; read the upper byte 

; read the lower byte 

; test for pending int 

; if not then ok time 

; test for timer reload 

; if not reloaded then ok 

; if reloaded then dec high for sync 

; clear the dead time 

; turn off the radio interrupt 

; turn off the radio interrupt 

, find the difference 



; past time and the past time in temp 
; test for a negitive number 
; if the number is not negitive then done 
; find the difference 



;past time and the past time in temp 

; test the port for the edge 

; if it was the active time then branch 

; test for active last time 
; if so continue 
; if not the return 



; set the bit setting direction to pos edge 

; set flag to inactive 

; transfer difference to inactive 

; transfer temp into the past 

; return 

; test for active last time 



A 



f 



GOACT1VE. 

.IF E21 
.ELSE 
and 

.ENDIF 
Id 
id 
id 
Id 
Id 
ei 
cp 
jr 

MEASUREBLANK: 



z.GOACTIVE 
RADIO EXIT 



IRQ,#001 11 1 11 B 

RINFILTER,#OFFH 
rtimeah.rtimedh 
rtimeal,rtimed! 
rtimeph.rtemph 
rtimepl.rtempl 

radioc,#OOH 
nz, INSIGNAL 



cp 

jP 
cp 

JP 
cp 

V 

cp 
V 

SETREC1MS: 
tm 

V 

and 
or 
cir 
clr 



1ms 



rtimeih,#110D 

ugt,CLEARRADIO 

rtimeih,-#40D 

ult,CLEARRADIO 

rtimeah,#03H 

ugt,SETREC3MS 

nz.SETRECIMS 

rtimeal.#09DH 

ugt,SETREC3MS 

RFLAG,#OC010O00B 
Z,SETF1RST1 MS 

RFLAG,#10111111B 

RFLAG,#00100000B 

radio3h 

radio3l 

INCCOUNT 



SETFIRST1MS: 
or 
clr 
clr 

V 

SETREC3MS: 
and 
cir 
clr 

INCCOUNT: 
inc 

RADIO_EXIT: 
pop 
iret 



RFLAG,#01000000B 
radiol h 
radioll 
INCCOUNT 

RFLAG,#10111111B 
radio3h 
radio3l 

radioc 

RADIO EXIT 



RP 



; if so continue 
; if not the return 



; clear the bit setting dir to neg edge 



transfer difference to active 



transfer temp into the past 



; test for blank time 

; if the count not zero then in signal 

; test the timer for > 55mS 

; if > 55 then clear the radio 

; test the timer for < 20mS 

; if < 20mS then clear the radio 

; test the sync for a 3mS period first > 1 

; if 2mS or greater then 3mS sync code 

; if less then 1 then it is a 1 mS 

; test for 1.85 "middle value 2" 

; if greater then set a 3 

; test for the reception of the 1 mS code 
; if the bit is not set then this is the first 

clear the flag so writing into 3mS word 
set the flag saying 2nd 1mS word 
clear the last reception 



; then inc the count for insignal 

; set the flag for the first 1 mS word 
; clear the last reception 

; then inc the count for insignal 

; clear the flag so writing into 3mS word 
; c'ear the last reception 



; set the counter to the next word 



; reset the register pair 



INSIGNAL: 
cp 

ip 

PULSEWOK: 
cp 



rtimeah,#9D 
ugt.CLEARRADIO 

rtimeih,#9D 



; test the radio pulse width for 4.5mS 
; if greater then 4.5 then clear the radio 

; test the radio blank width for 4.5mS 



ip 


ugt,CLEARRADIO 


if greater then 4.5 then clear the radio 


BLANKWOK. 




id 


rtemph,rttmeih ; 


transler pulse time to temp reg 


Id 


rtempi,rtimei! ; 




sub 


rtempl,rtimeai ; 


subtract the pulse from the blank 


sbc 


rtemph.rtimeah ; 


V 


c.NEGDlFF ; 


if the difference is negitive then branch 


cp 


rtemph t #01H ; 


test for a number 1 


v 


ugt.SETTOO ; 


if greater then set 0 


i r 


ult.SETTOl ; 


if less then 1 set to 1 


tm 


rtempi,#10000000B ; 


test for 80 or greater 


V 


z.SETTOl 


if the diff is less then 80h 


V 


SETTOO ; 


else set to a zero 


NEGDIFF: 






Id 


rtemph.rtimeah 


transfer pulse time to temp reg 


id 


rtempl.rtimeal 




sub 


rtempl.rtimeil , 


subtract the pulse from the blank 


sbc 


rtemph,rtimeih , 




cp 


rtemph,#01 H ; 


test for a number 1 


jr 


ugt,SETT02 


if greater then set 2 


jr 


uit,SETT01 


if less then 1 set to 1 


tm 


rtempi,#10000000B 


test for 80 or greater 


V 


Z,ot 1 1 Ul 


if the diff is less then 80h one 


jr 


SETT02 


else set to a two 


SETTOC: 






id 


RTEMP,#O0D 


set the bit value to a 00 


jr 


INCRECORD 


goto adding into the record 


SETT01 : 






id 


RTEMP,#01D 


; set the bit value to a 01 


V 


INCRECORD 


goto adding into the record 


SETT02: 






id 


RTEMP,#02D 


; set the bit value to a 1 0 


J r 


INCRECORD 


goto adding into the record 


INCRECORD: 






tm 


RFLAG,#O1000O00B 


test radio flag for area to be modifing 


jr 


2.MS3RECORD 


if cleared then working the 3ms 


id 


rtemph,radio1h 


transfer the record to temp 


id 


rlempl, radio 11 




add 


radio 11, rternpl 


aaa tne numoer 10 it sen *z for uase o 


adc 


radioth,riemph 




add 


radio1l,rtemp! 




adc 


radio1h,rtemph 




add 


radioH.rtemp 




adc 


radioth,#00h 




inc 


radioc 


; increase the radio counter 


cp 


radioc,#1 1 D 


; test for the last bit 


jr 


z.GOTAWORD 


; if so we got a word 


jp 


ugt,CLEARRADIO 


else garbage 


V 


RADIO_EXlT 


; else return tiJI the next bit comes along 


MS3RECORD: 






Id 


rtemph,radio3h 


; transfer the record to temp 


Id 


rlempl, radio3i 




add 


radio3i.rtempl 


; add the number to it seff 2* for base 3 


adc 


radio3h,rtemph 





A-4-S" 



add 


radio3l,rtempl 




3dc 


radin3h rtpmnh 




add 




, aaa in ine new value 




i auiuoi i^wu 








; increase the radio counter 




radinr- #1 1 D 


* foci 4r\r l-\ >4 

, lesi lor me lasi dii 


ir 

r 


2 GOTAWORD 


; if so we got a word 


in 


RADIO EXIT 


, ei»e reiurn iui ine nexi dii comes aiong 


GOTAWORD- 






tm 


RFLAG,#01000000B 


t lesi raaio nag ior area )usx mooning 


i r 


2.MARK3REC 


, ii uii i& ciecireu inen ine oms is iineo 


or 


RFLAG,#00010000B 


• cot thn flan 

, »t?t iiit? liog 


J r 


TESTFORTWO 


, jump 10 lesi ior two cooes 


MARK3REC: 




or 


RFLAG,#00001000B 


; set the flag 


jr 


TESTFORTWO 


; jump to test for two codes 


DONEONE: 




clr 


radioc 


; clear the radio counter 


JP 


RADIO EXIT 


; return 


TESTFORTWO: 




tm 


RFLAG,#00010000B 


; test for the 1 mS word 


jr 


Z,UvJlNtU(Nit 


; we just have one code done 


tm 


RFLAG,#00001000B 


; test for the 3mS word 


jr 


2,DONEONE 


; we just have one code done 


tm 


RFLAG,#00100000B 


; test the flag for BC 


jr 


z,KNOWCODE 


; if A code we do nothing 


or 


RFLAG,#00000010B 


; set the B and C flag 


cp 


rtemp,#00 


; test word 1 0 for a 0 "C" code 


jp 


z,KNOWCODE 


; if a C code were done 


or 


RFLAG,#00000100B 


; set the B code flag 


KNOWCODE: 




clr 


RsRto 


; reset the received flag 


cp 


SKIPRAD!O,#0FFH 


; test for the skip flag 


iP 


z.CLEARRADIO 


; skip flag active donot look at EE mem 


Id 


ADDRESS,#Address Vacation 


; set the non vol to the VAC flag 


call 


READMEMORY 


; read the value 


Id 


VACFLAG,MTEMPH 


; save into volitai 


cp 


LE;ARNT,#OFFH 


; test for in learn mode 


jr 


zJESTCODE 


; if out of learn mode then lest matching 


STORECODE: 




cp 


PRADI01H,radio1h 


; test for the match 


jr 


nz.STORENOTMATCH 


; if not a match then loop again 


cp 


PRADIOIL.radioH 


; test for the match 


jr 


nz.STORENOTMATCH 


; if not a match then loop again 


cp 


PRADl03H,radio3h 


; test for the match 


jr 


nz.STORENOTMATCH 


; if not a match then loop again 


cp 


PRADI03L,radio3l 


; test for the match 


jr 


nz.STORENOTMATCH 


; if not a match then loop again 


call 


TESTCODES 


; test the code to see if in memory now 


cp 


ADDRESS,#OFFH - 




jr 


nz.NOWRITESTORE 


; if there is a match pretend to store 


STORE MATCH: 





I. 



J 



tm 


RFLAG.#00000100B 


test for the b code 


jr 


nz.BCODE ; 


if a B code jump 


tm 


RFLAG,#00000010B 


test tor a C code 


V 


nz.CCODE ; 


if a C code jump 


ACODE 






Id 


ADDRESS.#AddressApointer 


set the address to read the last written 


call 


READMEMORY ; 


read the memory 


inc 


MTEMPH 


add 2 to the last written 


jnc 


MTEMPH 




and 


MTEMPK#1 11111 10B 


set the address on a even number 


cp 


MTEMPH,#17H 


test for the last address 




ulLGOTAADDRESS 


if not the last address jump 


id 


MTEMPH,#OOD 


set the address to 0 


GOTAADDRESS: 




Id 


ADDRESS,#AddressApointer 


set the address to write the last written 


Id 


RTEMP, MTEMPH 


save the address 


id 


MTEMPLMTEMPH 


both bytes same 


call 


WRiTEMEMORY 


write it 


Id 


ADDRESS, rtemp 


, set the address 


V 


READYTOWRITE 




BCODE. 






id 


ADDRESS,#AddressB 


: set the address for the B code 


V 


READYTOWRITE 




CCODE: 






Id 


ADDRESS,#AddressC 


; set the address for the C code 


RE AD YTOWR 1TE : 




call 


WRITECODE 


; write the code in radiol and radio3 


NOWR ITESTOR E : 




xor 


pO,#WORKLIGHT 


; toggle light 


Id 


LearnLed,#0011111tb 


; turn off the LED for program mode 


Id 


LIGHT1S,#244D 


; turn on the 1 second blink 


Id 


LEARNT, #OFFH 


; set learnmode timer 


clr 


RTO 


; disallow cmd from learn 


ip 


CLEARRADIO 


; return 


STORENOTMATCH: 




Id 


PRADIOlH,radio1h 


; transfer radio into past 


Id 


PRADIOlL,radio1l 




Id 


PRADt03H,radio3h 




Id 


PRADI03L,radio3l 




JP 


CLEARRADIO 


; get the next code 



TESTCODE: 
Id 
Id 
Id 
Id 
tm 

i r 

Id 



FS1: 



call 
cp 
i r 
jp 



PRADIOlH,radio1h 

PRADl01L,radio1i 

PRAD!03H,radio3h 

PRADI03Lradk>3l 

LearnLed,#11000000B 

nz,FSl 

LearnLed,#001 11100b 

TESTCODES 
ADDRESS,#0FFH 
nz.GOTMATCH 
CLEARRADIO 



transfer radio into past 



test for fault or learn 
if so then skip blink 
blink led 



test the codes 

test for the not matching state 

if matching send a command if needed 

else clear the radio 



) 



GOT MATCH. 

or R FLAG, #00000001 B ; set the flag for recieving without error 

cp RTO,#101D ; test for the timer time out 

jr ult,NOTNEWMATCH ; if timer active then donot reissue cmd 
TESTVAC: 

cp VACFLAG.#O0B ; test for the vacation mode 

jr zJSTSDlSABLE ; if not vac mode disable 

cp ADDRESS,#AddressB+1 ; test for the B code 

jr nz,NOTNEWMATCH ; if not a B not a match 
TSTSDISABLE: 

cp SDISABLE,#32D ; test for 4 second 

jr u!t,NOTNEWMATCH ; if 6 s not up not a new code 

clr RTO ; dear the radio timeout 

* cp ONEP2,#00 ; test for the 1 .2 second time out 

jr nz,NOTNEWMATCH ; if timer is active then skip command 

RADIOCOMMAND: 

clr RTO ; clear the radio timeout 

cp ADDRESS,#AddressB+1 ; test for a B code 

jr nz,BDONTSET ; if not a b code donot set flag 

Id BCODEFLAG,#077H ; flag for aobs bypass 

BDONTSET: 

clr LAST_CMD ; mark the last command as radio 

Id RADlO_CMD,#0AAH ; set the radio command 

jr CLEARRADIO ; return 

TESTCODES: 
ei 

clr ADDRESS ; start address is 0 
NEXTCODE: 

call READMEMORY ; read the word at this address 

cp MTEMPH,radio1 h ; test for the match 

jr nz,NOMATCH ; if not matching then do next address 

cp MTEMPL,radio1l ; test for the match 

jr nz.NOMATCH ; if not matching then do next address 

inc ADDRESS ; set the second half of the code 

call READMEMORY ; read the word at this address 

cp MTEMPH,radio3h ; test for the match 

jr nz,NOMATCH2 ; not matching then do the next address 

cp MTEMPL,radio3l ; test for the match 

jr nz,NOMATCH2 ; if not matching do the next address 

ret ; return with thef address of the match 

NOMATCH. 

tnc ADDRESS ; set the address to the next code 
NOMATCH2: 

inc ADDRESS ; set the address to the next code 

cp ADDRESS,#AddressCounter ; test for the last address 

jr ult. NEXTCODE ; if not the last address then try again 

GOTNOMATCH 

Id ADDRESS,#0FFH ; set the no match flag 

ret ; and return 



NOTNEWMATCH. 



clr 


RTO 


and 


RFLAG.#O0000001B 


clr 


radioc 


Id 


LEARNT.#OFFH 


jP 


RADIO_EXIT 


CLEARRADIO: 




.IF E21 




.ELSE 




and 


IRQ,#001 1 1 1 1 1 B 


.ENDIF 




id 


RINFILTER,#OFFH 


CLEARRADIOA. 


tm 


RFLAG,#O00O0001B 


K 


z.SKIPRTO 


clr 


RTO 


SKIPRTO: 




clr 


radioc 


Clr 


RFLAG 


JP 


RADIO_EXIT 



; reset the radio time out 

; clear radio flags recieving w/o error 

; clear the radio bit counter 

; set learn timer "turn off" and backup 

; return 



; clear bit setting direction to neg edge 

; set flag to active 

; test for receiving without error 

; if flag not set then donot clear timer 

; clear radio timer 

; clear the radio counter 
; clear the radio flag 
; return 



Store the force table 

Enter with the address pointing to the first address 



StoreForceTable: 
. push RP 
srp #ForceTable2 
di 
.IF 
xor 
.ELSE 
WDT 
.ENDIF 
Id 
Id 

MemTransfer: 
Id 
inc 
Id 

inc 
JF 
xor 
.ELSE 
WDT 
.ENDIF 

call WFUTEMEMORY 
inc ADDRESS 
djnz forcetemp, MemTransfer 
pop RP 



E21 

P1 ,#00000001 B 



forcetemp ,#14d 
forceaddress,#ForceOHi 

MTEMPH,@forceaddress 
forceaddress 
MTEMPL,@forceaddress 
forceaddress 
E21 

P1 ,#00000001 B 



; set the rp 

> 

; Kick the external dog 

; KICK THE DOG 

; set the number to do 
; set the start address 

; get the value 



; Kick the external dog 

; KICK THE DOG 

; write the values 

; set to the next address 

; loop till done 



A' 49 



ei 
ret 



Read Force Table 

Enter with the address pointing to the first 



address 



ReadForceTable: 



push 


RP 


; set the rp 


srp 


#ForceTable2 




Id 


SKIPRADIO.#0FFH 


; turn off the radio 


.IF 


E21 




xor 


P1 ,#00000001 B 


; Kick the external dog 


.ELSE 




WDT 




; KICK THE DOG 


.ENDIF 






Id 


forcetemp,#14d 


; set the number to do 


id 


forceaddress.#ForceOHi 


; set the start address 


*mTrans1er. 




cai! 


READMEMORY 


; read the value 


Id 


@forceaddress,MTEMPH 


; get the value 

> 


inc 


forceaddress 


Id 


@torceaddress,MTEMPL 




inc 


forceaddress 




.IF 


E21 




xor 


P1 ,#00000001 B 


; Kick the external dog 


.ELSE 






WDT 




; KICK THE DOG 


.ENDIF 






inc 


ADDRESS 


; set to the next address 


djnz 


f orcetemp , Read MemTran sfe r 


; loop till done 


pop 


RP 




jP 


ReadLimits 





TIMES OUT THE LEARN MODE 30 SECONDS 
; DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 



LEARN: 

cp 

clr 
J r 

LearnStiilSet: 
cp 

i r 

inc 

Id 

Id 

Id 

call 

clr 



LEARNDB r #0E0H 
uge, LearnStiilSet 
ERASET 
EraseTestDone 

ERASET,#48d 
hz, EraseTestDone 
ERASET 

LearnLed.#00111111b 
LEARNT. #0FFH 
SKIPRADiO.#0FFH 
CLEARCODES 
SKIPRADIO 



test for in learn mode 
if set test erase timer 
else clear the timer 



test for the 6 seconds 
if not 6 sec keep testing 
one shot 
turn off the led 
set the learn timer 
turn off the radio 
clear the radio codes 
turn back on the radio 



A -so.. 



EraseTestDone: 

cp LEARNT,#240d 

jr z,TurnOffLearn 
ret 

TurnOffLearn: 

id LearnLed,#O0111111b 

Id LEARNT,#OFFH 
ret 



; test tor 30 seconds timeout 
; if so turn off learn 



; turn off the led 
; set the learn timer 



; WRITE WORD TO MEMORY 

; ADDRESS IS SET IN REG ADDRESS 

; DATA IS IN REG MTEMPH AND MTEMPL 

; RETURN ADDRESS IS UNCHANGED 

.*** *********+*♦***********************#***********#********************* 
WRITEMEMORY: 



push 


RP 


SAVE THE RP m 


srp 


#LEARNEE_GRP 


set the register pointer 


calf 


START B 


output the start bit 


Id 


serial,#00110000B 


set byte to enable write 


call 


SERIALOUT 


output the byte 


and 


csporl#csl 


, reset the chip select 


call 


START B 


; output the start bit 


Id 


serial,#01000000B 


, set the byte for write 


or 


serial,address 


, or in the address 


call 


SERIALOUT 


output the byte 


Id 


serial, mtemph 


set the first byte to write 


call 


SERIALOUT 


output the byte 


Id 


serial.mternp! 


set the second byte to write 


call 


SERIALOUT 


output the byte 


call 


ENDWRITE 


wait for the ready status 


call 


START B 


output the start bit 


Id 


serial,#00000000B 


set byte to disable write 


call 


SERIALOUT 


output the byte 


and 


csport,#csl 


reset the chip select 


pop 


RP 


reset the RP 


ret 







READ WORD FROM MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

ADDRESS IS UNCHANGED 



READMEMORY: 



push 


RP 


* 


srp 


#LEARNEE_GRP 


; set the register pointer 


call 


STARTB 


; output the start bit 


Id 


serial t #10000000B 


; preamble for read 


or 


serial, address 


; or in the address 


call 


SERIALOUT 


; output the byte 


call 


SERIALIN 


; read the first byte 



A- si 



Id mtemph, serial 

call SERIALIN 

id mtempl,serial 

and csport,#cs! 

pop RP 
ret 



, save the value in mtemph 
, read teh second byte 
; save the value in mtempl 
; reset the chip select 



; WRITE CODE TO 2 MEMORY ADDRESS 

; CODE IS IN RADI01H RADI01L RADI03H RADI03L 
.********* **************** ****************************** ********* 

VVRITECODE: 



push 


RP 




srp 


#LEARNEE_GRP 


; set the register pointer 


Id 


mtemph.RADIOIH 


; transfer radio 1 to the temps 


Id 


mtempl, RADIOI L 


call 


WRITEMEMORY 


; write the temp bits 


inc 


address 


; next address 


Id 


mtemph, RADI03H 


; transfer radio 3 to the temps 


Id 


mtempl,RADI03L 


call 


WRITEMEMORY 


; write the temps 


pop 


RP 


ret 




; return 



; CLEAR ALL RADIO CODES IN THE MEMORY 



CLEARCODES: 



push 


RP 


t 


srp 


#LEARNEE GRP 


; set the register pointer 


■ Id 


RADIOI H,#OFFH 


; set the codes to illegal codes 


Id 


RADIOI L,#OFFH 


Id 


RADIO3H,#0FFH 


» 


Id 


RADIO3L,#0FFH 




Id 


address,#O0H 


; clear address 0 


CLEARC: 






call 


WRITECODE 


;*A0 H 


inc 


aodress 


; set the next address 


cp 


address,#AddressCoui iter 


; test for the last address of radio 


V 


ult.CLEARC 




clr 


mtemph 


; clear data 


clr 


mtempl 




Id 


address,#AddressApointer 


; clear address F 


call 


WRITEMEMORY 




pop 


RP 


i 


ret 




; return 



; START BIT FOR SERIAL NONVOL . 

; ALSO SETS DATA DIRECTION AND AND CS 

STARTB: 

and csport#csl 



V 



and 


cIkport,#clockl 


and 


dioport,#dol 


Id 


P2M,#(P2MJNIT+0) 


or 


csport,#csh 


or 


dioport,#doh 


or 


clkport t #dockh 


and 


cikport t #clockl 


and 


dioport,#dol 


ret 





; start by clearing the bits 

; set port 2 mode output mode data 

; set the chip select 

; set the data out high 

; set the clock 

; reset the clock low 

; set the data low 

; return 





;END OF CODE WRITE 




0 


ENDWRITE: 






03 


and 


csport,#cs! 


; reset the chip select 


¥ 


nop 




; delay 




or 


csport,#csh 


; set the chip select 


O 


Id 


P2M,#(P2MJNIT+4) 


; set port 2 mode input mode data 




ENDWRITELOOP: 




Id 


mtemp.dioport 


; read the port 




and 


mtemp t #doh 


; mask 


II 


jr 


z, END WR ITELOOP 


; if bit is low then loop till we are done 


m 


and 


csport,#csl 


; reset the chip select 


n 


Id 
ret 


P2M,#(P2MJNIT+0) 


; set port 2 mode forcing output mode 



us 

ru 



; SERIAL OUT 

; OUTPUT THE BYTE IN SERIAL 

.*«***«+******«**********«++«*« ************ **************** ********** 

SERIALOUT: 



. Id 


P2M,#(P2MJNIT+0) 


; set port 2 mode output mode data 


Id 


mtemp,#8H 


; set the count for eight bits 


SERIALOUTLOOP: 


rlc 


serial 


; get the bit to output into the carry 


V 


ncZEROOUT 


; output a zero if no carry 


ONEOUT: 




or 


dioport t #doh 


; set the data out high 


or 


dkport,#clockh 


; set the clock high 


and 


clkport,#clockl 


; reset the clock low 


and 


dioport,#dol 


; reset the data out low 


djnz 


mtemp.SERIALOUTLOOP 


; loop till done 


ret 




; return 


ZEROOUT: 






and 


dioport,#dol 


; reset the data out low 


or 


clkport,#clockh 


; set the clock high 


and 


clkport,#clockl 


; reset the clock low 


and 


dioport,#dol 


; reset the data out low 


djnz 


mtemp.SERIALOUTLOOP 


; loop till done 


ret 




; return 



) 



"; SERIAL IN 

; INPUTS A BYTE TO SERIAL 



m 

■ VI 



SERIALIN: 

Id P2M,#(P2M_INIT+4) 

Id mtemp,#8H 
SERIALINLOOP: 

or clkport,#clockh 

rcf 

push mtemp 

mtemp, dioport 
mtemp,#doh 
Z.DONTSET 



Id 

and 

jr 
set 

DONTSET: 
pop 
rlc 
and 
djnz 

ret 



mtemp 
serial 

cfkport,#clockl 
mtemp.SERIALINLOOP 



Timertlnt: 

push 
SRP 
dec 

FINDTASK: 
tm 

jr 

; tm 
V 



RP 

#TIMER_GROUP 
TOEXT 

TOEXT,#00000001 B 
nz,TASK1357EXIT 
T0EXT f #00000010B 
nz,TASK26 



; set port 2 mode input mode data 
; set the count for eight bits 

; set the clock high 
; reset the carry flag 
; save temp 
; read the port 
; mask out the bits 

; set the carry flag 

; reset the temp value 
; get the bit into the byte 
; reset the clock low 

; loop till done 
; return 



; TIMER UPDATE FROM INTERUPT EVERY .5mS 



; save the rp 



; test for odd numbers 
; if odd 

; test for 2 6 or 0 4 
; if 26 then jump 



TASK04: 
or 
cp 

jr 
or 

RadioOffSkip: 
ei 

pop 
iret 



IMR,#RadioOfflMR 
L_A_C f #042H 
uge,RadioOffSkip 
IMR,#RETURNJMR 



; turn on the interrupt except the radio 
; test for the learn force limit mode 

; turn n the interrupt 



TASK26: 
or 
cp 

V 
or 

Radio260ffSkip 
ei 

call STATEMACHINE 

pop rp 

iret 



IMR,#RadioOfflMR 
L_A_C,#042H 
uge t Radio260ffSkip 
IMR,#RETURNJMR 



; turn on the interrupt except the radio 
; test for the learn force limit mode 

; turn on the interrupt 



; do the motor function 
; return the rp 



TASK1 357EXIT 

or IMR,#RadioOfflMR 
cp L_A__C,#042H 
jr uge, Radiol 3570ff Skip 
or IMR,#RETURNJMR 

Radiol 3570ffSkip: 
ei 





tm 


T0EXT,#00000001 B 




i r 


z,ONEMS 




tm 


TOEXT, #000000 1 0B 






z,ONEMS 




call 


AUXLIGHT 


ONEMS: 






inc 


VACFLASH 




tm 


P3 f #00000001B 


» 


i r 


z, Count Active 


» 


cp 


ProtectorSwitch,#46d 




V 


uft.ZeroProtectorCounter 


• 


cp 


ProtectorSwitch,#54d 


» 




ugt,ZeroProtectorCounter 


9 . 


clr 


RsTimer 


J 


Id 


ProtectorSwitch,#0FFH 


f 


in- 


ProtectorSwitchDone 


;CountActive: 






tern 


ProtectorSwitch,#03FH 




i r 


2, Protectors witch Done 


» 


inc 


ProtectorSwitch 




cp 


ProtectorSwitch f #54d 


» 


i r 


nz, P rotectorSwitch Done 


i 


- Id 


ProtectorSwitch,#0FFH 


> 


V 


ProtectorSwitchDone 



I 

;ZeroProtectorCounier: 



; clr 


ProtectorSwitch 


;ProtectorSwitchDone: 


srp 


#LEARNEE GRP 


dec 


AOBSTEST 


jr 


nz, NOFAIL 


AOBSFAIL: 




Id 


AOBSSTATUS,#0FFh 


Id 


AOBSTEST,#11d 


or 


AOBSF,#00000001b 


NOFAIL: 




inc 


t125ms 


tcm 


TOEXT,#00000111B 


jP 


nz,TEST125 


FOURMS: 




cp 


RPMONES,#00H 


jr 


Z.TESTPERIOD 


dec 


RPMONES 


clr 


RPM COUNT 




RPMTDONE 



; turn on the interrupt except the radio 
; test for the learn force limit mode 

; turn on the interrupt 



; test for state a 1 in bO 
; test for state a 1 in b1 



; flash timer 
; test the protector input 
; if 2ero count the time 
; test for the min count 
; if less the zero counter 
; test for the max count 
; if greater 2ero the counter 
; turn on the rs232 port 
; one shot 



; test for the top 

; if so skip 

; set the next value 

; test for too long 

; if not then done 

; turn off till next pulse 



; clear the counter 

; set the registe pointer 

; decrease the & jbs test timer 

; if the timer not at 0 then it didnot fail 

; set the flag for a aobs 
; if it failed reset the timer 
; set the failed flag bit 

; increment the 125 mS timer 

; test for the 1 1 1 

; if not true then jump 

; test for the end of the one sec timer 

; if one sec over then test the pulses 

; over the period 

; else decrease the timer 

; start with a count of 0 



TESTPERIOD: 
cp 

jr 
Id 



cp 

K 
clr 

FAREV: 

Id 
Id 

and 

Id 

call 

RPMTDONE: 
dec 
cp 
jr 

dec 
SKIPLIGHTE: 
inc 
cp 

jr 
clr 

DONOTCB: 



RPMCLEAR,#OOH 
nz,RPMTDONE 
RPMCLEAR,#122d 
RPM_COUNT;#50d 
ugt.FAREV 
RPM_COUNT 
RPMTDONE 

FAULTCODE,#07h 
FAREVFI_AG,#088H 
pO,# A LB A C WORKLIGHT 
REASON,#80H 
SET_AREV_STATE 

RPMCLEAR 
LIGHT1S,#00 
Z.SKIPLIGHTE 
LIGHT1S 

R_DEAD_TIME 
RTO,#101D 
ult. DONOTCB 
BCODEFLAG 



cp 
jr 

inc 

SkipRsRtoInc: 



RsRto,#OFFH 

z.SkipRsRtoInc 

RsRto 



; test the clear test timer for 0 

; if not timed out then skip 

; set the clear test time for next cycle .5 

; test the count for too many pulses 

; if too man pulses then reverse 

; clear the counter 

; continue 

; set the fault flag 

; set the forced up flag 

; turn off light 

; rpm forcing up motion 

; set the autorev state 

; decrement the timer 
; test for the end 

; down count the light time 



; test for the radio time out 
; if not timed out donot clear b 
; else clear the b code flag 



; inc to the ff position 



• inc 


RTO 


; increment the radio time out 


jr 


nz, RTOOK 


; if the radio timeout ok then skip 


dec 


RTO 


; back turn 


RTOOK: 




TEST125: 






cp 


t125ms,#125D 


; test for the time out 


jr 


2,ONE25MS 


; if true the jump 


cp 


H25ms,#63D 


; test for the other timeout 


jr 


nz.N1 25 




call 


FAULTB 




cp 


RsTimer,#OFFH 


; test for the end of the rs232 period 


jr 


z,SkipRs1 Timerlnc 


; if off skip increasing the counter 


inc 


RsTimer 


; increase the RsTimer till FF 


cp 


RsTimer,#OFFH 


; test for the end of the rs232 period 


jr 


z,SkipRs1 Timerlnc 


; if off skip increasing the counter 


inc 


RsTimer 


; increase the RsTimer till FF 


cp 


RsTimer,#OFFH 


; test for the end of the rs232 period 


jr 


z,SkipRs1 Timerlnc 


; if off skip increasing the counter 


inc 


RsTimer 


; increase the RsTimer till FF 


cp 


RsTimer,#OFFH 


; test for the end of the rs232 period 


jr 


z,SkipRs1 Timerlnc 


; if off skip increasing the counter 


inc 


RsTimer 


• increase the RsTimer till FF 


SkipRsI Timerlnc: 





N125 



pop 


RP 


" • iret 








cp 


RsTimer,#OFFH 


V 


2.SkipRs2Timerlnc 


inc 


RsTimer 


cp 


RsTimer,#OFFH 


jr 


2,SkipRs2Timerlnc 


inc 


RsTimer 


cp 


RsTimer,#OFFH 




2,SkipRs2Timerlnc 


inc 


RsTimer 


cp 


RsTimer,#OFFH 


jr 


2,SkipRs2Timerlnc 


inc 


RsTimer 


SkipRs2Timerlnc: 


inc 


P8Counter 


cp 


P8Counter.#0d 


jr 


P2,SkipTempStorage 


inc 


MinTimer 


tm 


MinTimer,#0001 1 1 1 1 B 


jr 


n2,SkipTempStorage 


cp 


MotorTempHi,PastTemp 


jr 


2,SkipTempStorage 


Id 


PastTemp,MotorTempHi 




n2,SkipTempStorage 


Id 


STAC K FLAG,#OAA H 



SkipTempStorage: 


tm 


P8Counter,#000001 1 1 B 


i r 


H2,SkipTempOperation 


cp 


STATE, #1d 


jr 


2, Running 


cp 


STATE,#4d 


jr 


2.Running 


tm 


P8Counter,#01111111B 


jr 


n2, SkipTempOperation 


Idle: 


cp 


MotorTempHi,Temperature 


jr 


ule, SkipTempOperation 


id 


TDifference,MotorTempHi 


sub 


TDifierence,Temperature 


sub 


MotorTempLo,TDifference 


sbc 


MotorTempHi,#OOd 


sub 


MotorTempLoTDifference 


sbc 


MotorTempHi ,#00d 


jr 


SkipTempOperation 


Running 




~cp 


FORCEJGNORE,#00 


jr 


n2,TestForSta!i 



AddRunningNumber. 



add MotorTempLo,#TempRunlncLo 
adc MotorTempHi,#TempRunlncHi 
jr SkipTempOperation 



; test for the end of the rs232 period 
; if off skip increasing the counter 
; increase the RsTimer till FF 
; test for the end of the rs232 period 
; if off skip increasing the counter 
; increase the RsTimer till FF 
; test for the end of the rs232 period 
; if off skip increasing the counter 
; increase the RsTimer till FF 
; test for the end of the rs232 period 
; if off skip increasing the counter 
; increase the RsTimer till FF 

; increase the min time counter 
; ever 32 sec 

; increase timer 
; every 15 min 

; test for the change 
; if same do not change 
; save new value as past 
; store the temp in nonvol 
; save the temperature flag 



; every sec 

; if not at a sec skip 

; test for the up direction 

; if so then running 

; test for the down direction 

; if so then running 

; every 16 sec 

; if no then skip decreasing T 

; test for the min temp 
; if motor cool skip decrease 
; read the motor temp and 
; subtract the 

; decrease the temperature 
; decrease the temperature 
; done 



; test for past force ignore 
; if not past test for a stall 

; ADD the temp increase 



3 



TestForStall 

cp RPM_ACOUNT,#02d 
jr uge.AddRunningNumber 

AddStaliNurnber: 

add MotorTempLo.#TempSta!)lncLo 
adc MotorTempHi.#TempStafl IncHi 

SkipTempOperatton 

cp UpDown,#OFFH 

jr z,UpDownSkiplnc 

inc Up Down 
UpDownSkipInc: 



inc 

call 

clr 

inc 

di 

inc 

jr 

dec 

D012: 

cp 
dec 

INCLEARN: 
inc 
cp 

k 

dec 

LEARNTOK: 
ei 
inc 
- cp 
) r 

dec 
ERASETOK: 
pop 
iret 



P5UTD 
FAULTS 
1125ms 
DOG2 

SDISABLE 

nz.DOl2 

SDISABLE 

ONEP2,#00 
z, INCLEARN 
ONEP2 

learnt 

leamt,#0H 

nz. LEARNTOK 

learnt 



erase! 
eraset,#OH 
nz, ERASETOK 
eraset 

RP 



, test for any revs 



; ADD the temp increase 



: test tor the max time 
; if so dont inc 



; increase the up to down flag 
; call the fault blinker 
; reset the timer 

; incrwease the second watch dog 

; count off the system disable timer 
; if not rolled over then do the 1 .2 sec 
; else reset to FF 

; test for 0 

; if counted down then increment learn 
; else down count 

; increase the learn timer 

; test for overflow 

; if not 0 skip back turning 



; increase the erase timer 

; test for overflow 

; if not 0 skip back turning 



fault blinker 



FAULTB: 
inc 
inc 
cp 

'V 
clr 

clr 

cp 

V 
cp 

K 

clr 

NotTempFault. 
cp 



FAULTTIME 

FAULTTIME 

FAULTTIME,#090h 

ult.FIRSTFAULT 

FAULTTIME 

FAULT 

FAULTCODE,#4d 
nz. NotTempFault 
MotorTempHi,#DnSetMaxTemp 
uge. NotTempFault 
FAULTCODE 

FAULTCODE,#04h 
UGE.GOTFAULT 



increase the fault timer 

increase the fault timer 

test for the end 

if not timed out 

reset the clock 

clear the last 

test for over temp 

if not skip testing for clear 

test for max temp 

stiii hot donot clear 



i test for call dealer code 
; set the fault 



TESTAOBSM. 



cp 


STATE,#1d 


jr 


2, NO AOBSFA U LT 


cp 


STATE ,#4d 


jr 


2 , NO AOB S F A U LT 


tm 


AOBSF,#OOOOOOOtb 


jr 


2,NOAOBSFAULT 


tm 


AOBSF, #0000001 Ob 


jr 


2, NOPULSE 


Id 


FAULTCODE,#03h 


jr 


GOTFAULT 


NOPULSE: 




tm 


P3,#00000010b 


jr 


n2,AOBSSH 


cp 


FAULTCODE,#01h 


jr 


2, GOTFAULT 


Id 


FAULTCODE,#01h 


jr 


FIRSTFC 


AOBSSH: 




cp 


FAULTCODE,#02h 


jr 


2.G0TFAULT 


id 


FAULTCODE,#02h 


jr 


FIRSTFC 


GOTFAULT. 




Id 


FAULT, FAULTCODE 


swap 


FAULT 



jr FIRSTFC 
NOAOBSFAULT: 

Clr FAULTCODE 
FIRSTFC: 

clr AOBSF 

FIRSTFAULT: 



cp 


FAULT,#00 


jr 


z.NOFAULT 


Id 


FAULTFLAG,#OFFH 


cp 


LEARNT,#OFFH 


jr 


nz.TESTSDI 


cp 


FAULT,FAULTTIME 


jr 


ULE.TESTSDI 


tm 


FAULTTIME,#00001 000b 


jr 


nz.BITONE 


Id 


LearnLed,#01 000000B 


ret 





BITONE- 

Id LearnLed,#011111l1B 
TESTSDI. 
ret 

NOFAULT: 

clr FAULTFLAG 



; test for door travel 

; and if so skip fault code 

; test for door travel 

; and if so skip fault code 

; test for the skiped aobs pulse 

; if no skips then no faults 

; test for any pulses 

; if no pulses find if hi or low 

; else we are intermittent 

; set the fault 

; if same got fault 

; test the input pin 

; jump if aobs is stuck hi 

; test for stuck low in the past 

; set the fault 

; set the fault code 



; test for stuck high in past 
; set the fault 
; set the code 



; set the code 



; clear the fault code 
; clear flags 



; test for no fault 

; set the fault flag 

; test for not in learn mode 

; if in learn then skip setting 



; test the 1 sec bit 
; turn on the led 



; turn off the led 



; clear the flag 



3 



tm LearnLed,#01 OOOOOOB 

jr 2,LeaveLedSet 

id LearnLed,#00111111b 



LeaveLedSet: 
ret 



; MOTOR STATE MACHINE 



; test for fault blink on 
; turn off the led 



CI 

w 

III ^ 
sss. 



HI 



STATEMACHINE: 



xor 


pO,#00001000b 


toggle aux output 




cp 


DOG2,#8d ; 


test the 2nd watchdog for problem 


JP 


ugt.START ; 


if problem reset 




cp 


STATE,#06d ; 


test for legal number 




jP 


ugtstart ; 


if not the reset 




IP 


z,stop ; 


stop motor 


6 


cp 


STATE,#03d ; 


test for legal number 




jp 


z,start ; 


if not the reset 




cp 


STATE,#OOd ; 


test for autorev 




jp 


z,auto rev , 


auto reversing 


0 


cp 


STATE,#01d 


> test for up 




jp 


2,up direction 


, door is going up 


1 


cp 


STATE,#02d 


; test for autorev 




jp 


2, up ^position 


, door is up 


2 


cp 


STATE,#04d 


; test for autorev 




jp 


2,dn_direction 


; door is going down 


4 


jp 


dn_position 


, door is down 


5 



; AUX OBSTRUCTION OUTPUT AND LIGHT FUNCTION 



AUXLIGHT: 
testJightjDn: 



■NOIS: 



cp 


LIGHT_FLAG f #LIGHT 




jr 


2 t dec_pre light 




cp 


LIGHT1S,#00 


test for no flash 


jr 


2.N01S 


if not skip 


cp 


LIGHTlS,#01d 


test for timeout 


J r 


n2,N01S 


if not skip 


xor 


pO,#WORKLIGHT 


toggle light 


clr 


LIGHT1S 


oneshoted 


cp 


FLASH_FLAG,#FLASH 




jr 


nz,decjpre light 


250 ms period 


decw 


FLASH_DELAY 


jr 


n2,dec_pre light 


xor 


pO,#WORKLIGHT 


; toggle light 


Id 


FLASH DELAY HI,#FLASH HI 




Id 


FLASH DELAY LO,#FLASH LO 




dec 


FLASH_COUNTER 




jr 


n2,dec_pre light 




clr 


FLASH_FLAG 





A-t>° 



dec_pre_light: 




cp 


LKjH l_ ! IMLH_ril.#OrhH 




z,exit light 


dec 


PRE_LIGHT 


V 


nz,exit light 


decw 


LIGHTTIMER 


i r 


nz,exit light 


and 


p0,# A C LIGHT_ON 


exitjight: 


ret 




; AUTO_REV ROUTINE 



test for the timer ignore 
if set then ignore 
dec 3 byte light timer 



if timer 0 turn off the light 
turn off the light 

return 



FAREVFLAG,#088H 
nz,LEAVEREV 
pO,# A LB A C WORKLIGHT 



auto_rev; 
cp 
V 

and 

LEAVEREV 

.IF E21 

xor P1 ,#00000001 B 

.ELSE 

WDT 

.ENDIF 

call HOLDFREV 



Id 

and 
di 

decw 
decw 
ei 
V 



LIGHT_FLAG,#LIGHT 
p0,# A LB A C MOTOR_UP A & # A C MOTOR_DN ; disable motor 



; test for the forced up flag 
; turn off light 

; Kick the external dog 

; KICK THE DOG 

; hold off the force reverse 
; force the light on no blink 



AUTODELAY 
BAUTO_DELAY 

nz.arswitch 



; wait for .5 second 
; wait for .5 second 

; test switches 



or 
Id 

ip 

arswitch: 
cp 

J r 
Id 
cp 

JP 
Id 

cp 
JP 

exit_auto_rev: 
ret 



p0,#00001000b 
REASON,#40H 
SetUpDirStateNoTemp 

WIN_FLAG,#00h 

z,exit_auto_rev 

REASON,#00H 

SW_DATA,#CMD_SW 

z,SET_STOP_STATE 

REASON,#10H 

RADIO_CMD,#0AAH 

z.SET STOP STATE 



set aux output for FEMA 
set the reason for the change 
set the state 

test for window active 
if inactive- skip commands 
set the reason to command 
test for a command 
if so then stop 

set the reason as radio command 
test for a radio command 
if so the stop 

return 



HOLDFREV: 

Id RPMONES,#244d 

Id RPMCLEAR.#122d 

clr RPM_COUNT 
ret 



; set the hold off 

; clear rpm reverse .5 sec 

; start with a count of 0 



DOOR GOING UP 



up_directiorv 
.IF 
xor 
.ELSE 
WDT 
.ENDIF 
cp 

k 

ret 

UpContinue: 
call 
Id 

and 

cp 
J r 

inc 
or 
cp 



E21 

Pi ,#00000001 B 



OnePass,STATE 
2, UpContinue 



UPON: 

or 

UPOFF: 
cp 

V 
cp 

- jr 
Id 

SKIPUPRPM. 
cp 



HOLDFREV 
LIGHT_FLAG,#LIGHT 
p0,# A LB A C MOTOR_DN 

MOTDEL,#0FFH 

z,UPON 

MOTDEL 

p0,#LIGHT_ON 

MOTDEL,#20d 

ule,UPOFF 

p0,#MOTOR_UP A | #LIGHT_ON 

FORCEJGNORE,#01 

nz.SKIPUPRPM 

RPM_ACOUNT,#02H 

ugt.SKIPUPRPM 

FAULTCODE,#06h 

FORCEJGNORE,#00 
nz,test_up_sw _pre 



TEST 



UP^ 
di 

dec 

dec 

ei 

di 

push 

push 

sub 

sbc 

tm 

jr 

pop 
pop 

ei 

failed_up_rpm 
Id 

.IP 



FORCE: 



RPM^TIME^OUT 
BRPMJTIME_OUT 

z,failed_up_rpm 

UP^FORCE^LO 
UP_FORCE_HI 

UP_FORCE_LO,RPM_PERIOD_LO 

UP„FORCE_HI,RPM_PERIOD_HI 

UP_FORCE_HI,#1 000O000B 

z,test_up_sw_pop 

UP_FORCE_HI 

UP FORCE_LO 



REASON,#20H 
SET STOP STATE 



; Kick the external dog 

; KICK THE DOG 

; test for memory read yet 



; hold oft the force reverse 
; force the light on no blink 
; disable down relay 

; test for done 

; if done skip delay 

; increase the delay timer 

; turn on the light 

; test for 40 seconds 

; if not timed 

; turn on the motor and light 

test fro the end of the force ignore 
if not donot test rpmcount 
test for less the 2 pulses 



; test timer for done 

; if timer not up do not test force 



; decrease the timeout 
; decrease the timeout 



; turn off the interrupt 
; save the force setting 



test high bit for sign 

if the rpm period is ok then switch 

reset the force setting 



, set the reason as force 



o 



o 



test_up_sw__pre: 



fe4? 

□ 
y 

Si 

III 



& 

m 



dec 


FORCE_PRE 


tm 


FORCE_PRE,#00000001 B 


jr 


nz,test_up_sw 


di 




dec 


FORCE IGNORE 


dec 


BFORCEJGNORE 


jr 


test_up_sw 


test_up_sw_pop: 


pop 


UP FORCE HI 


pop 


UP_FORCE_LO 


ei 




test_up_sw: 




ei 




cp 


L_A_C,#044H 


jr 


2, get sw 


cp 


POSITION HI,#07FH 




nz.TESTUPN 


cp 


POSITION LO,#00 


jr 


z.UPLIM 


TESTUPN: 





di 

push 

push 

sub 

sbc 

cp 

j r 

pop 
Pop 
ei 

jr 

UP_LIM_SET: 
pop 
pop 
ei 



POSITION_LO 

POSITION J-ll 

POSITION_LO,UPJJM_LO 

POSiTION_Hl t UP_LIM_HI 

POS!TION_HI.#0FFH 

z,UPJJM_SET 

POSITION_HI 
POSITION_LO 

gei_sw 

POS!TION_H! 
POSITION LO 



; dec the prescaler 
; test for odd 12 
; if odd skip 



; reset the force setting 



; enable interrupt 

; test for learning up limit 

; if so skip testing the limit 

; test for the middle range 

; if not test the up limit normal 

; test for the limit 

; if so then jump 



; find the difference from position 
; test for a within 256 of after limit 

; reset the position 

; if not at the limit test switches 
; reset the position 



UPLIM: 

Id 
JP 

get_sw: 

cp 

jr 
Id 
cp 

jP 

Id 

cp 

jr 

jP 

test_up_time: 
Id 

decw 



REASON,#50H 
SET_UP_POS__STATE 

WIN_FLAG,#O0h 

z,test_upjime 

REASON,#10H 

RADIO_CMD,#0AAH 

z,SET_STOP_STATE 

REASON,#00H 

SW_DATA f #CMD_SW 

ne,test_up_time 

SET_STOP_STATE 

REASON,#70H 
MOTOR TIMER 



; set the reason as limit 



; test for the flag active 
; if inactive skip command 
; set the radio command reason 
; test for a radio command 
; if so stop 

; set the reason as a command 
; test for a command condition 



; set the reason as a time out 
..; decrement motor timer 



o 



o 



jp 2,SET_STOP_STATE 
exil_up_dir: 

ret ; return to caller 



DOOR UP 



up^position: 

.IF E21 

xor P1 ,#00000001 B ; Kick the external dog 

.ELSE 

WDT ; KICK THE DOG 
.ENDIF 

cp FAREVFLAG,#088H ; test for the forced up Hag 

jr nz,LEAVELIGHT 

and pO,# A LB A C WORKLIGHT ; turn off light 

jr UPNOFLASH ; skip clearing the flash flag 

LEAVELtGHT: 

Id LIGHT_FLAG,#OOH ; allow blink 

UPNOFLASH: 

and pO,# A LB A C MOTOR JJP A & # A C MOTOR_DN ; disable motor 

cp SW_DATA,#LIGHT_SW ; light sw debounced? 

jr z,work_up ; 

cp UpDown,#UpDownTime ; test for the direction delay 

jr ult.UpPosRet 

Id REASON,#10H ; set the reason as a radio command 

cp RADIO_CMD,#OAAH ; test for a radio cmd 

jr z,SETDND!RSTATE ; if so start down 

Id REASON,#00H ; set the reason as a command 

cp SW_DATA,#CMD_SW ; command sw debounced? 

jr z,SETDNDlRSTATE ; if command 

UpPosRet: 
ret 

SETDNDtRSTATE: 

Id ONEP2,#1 OD ; set the 1 .2 sec timer 

jp SET_DN_DIR_STATE 

work__up: 

clr SWJDATA 

xor pO,#WORKLIGHT ; toggle work light 

Id LIGHT jnMERJ-il,#OFFH ; set the timer ignore 

up_pos_ret: 

ret ; return 



DOOR GOING DOWN 



dn_direction; 

.IF E21 

xor P1 ,#00000001 B ; Kick the external dog 

.ELSE 

WDT ; KICK THE DOG 

.ENDIF 

cp OnePass,STATE ; test for memory read yet 







2,DownContinue 




ret 




DownContinue: 




cp 


1 A 4U\A A l_l 




V 


UI8,NL>KM_L)N 




push 


rp 




srp 


ffrUHtc_GRP 




.IF 


rwDluCKriay 




Id 


fiKl 1 IfcA ui ...u; u: 

UN_LiM_Mi t position_hi 




Id 


r\ki t iik < i _ . 

DN_LIM_LO,positionJo 




tm 


PO ,#001 00000 B 




V 


nz,Loo 


L109P5 






lili 


PO,#00010000B 




J r 


nz,L9P5 


L10: 








sub 


DN_L!M_LO,#L1 OLo 




sbc 


DN_LIMJ-l!,#L10Hi 




jr 


GotLimitPosition 


L9P5: 








sub 


DN LIM LO,#L9P5Lo 




sbc 


DN_LfM_Hl,#L9P5Hi 




jr 


GotLimitPosition 


L86: 






tm 


PO,#00010000B 




jr 


nz,L8 


L6: 








sub 


DN LIM LO,#L6Lo 




sbc 


DN_LIM_HI,#L6Hi 




J r 


GotLimitPosition 


L8: 








sub 


DN LIM LO,#L8Lo 




sbc 


DNJ_IM_Hj,#L8Hi 




jr 


GotLimitPosition 




.ELSE 






Id 


DNJJMJHI.position hi 




Id 


DNJJM_LO, position lo 




.ENDIF 


GotLimitPosition; 




pop 


rp 


NORM. 


DN: 






call 


HOLDFREV 




clr 


FLASH FLAG 




Id 


LIGHT FLAG,#LIGHT 




and 


p0,# A LB A C MOTOR UP 




cp 


MOTDEL,#0FFH 




jr 


z,DNON 




tnc 


MOTDEL 




or 


p0,#LJGHT ON 




cp 


MOTDEL,#20d 




jr 


ule,DNOFF 



; Durring setup move the 
; present position into the 
; limit while traveling down 



; test for 10-9.5 or 8-6 
; gear reduction 

;test for 10 vs9.5 
; subtract .5 inches 

; subtract .5 inches 

; test for 10 vs 9.5 
; subtract .5 inches 

; subtract .5 inches 



DNON: 



DNOFF: 



or p0,#MOTOR_DN A | #LIGHT_ON 



; hold off the force reverse 

; turn off the flash 

; force the light on no blink 

; turn off motor up 

; test for done 

; if done skip delay 

; increase the delay timer 

;turn on the light 

; test for 40 seconds 

; if not timed 



; turn on the motor and light 



cp FORCEJGNORE,#01 ; test fro the end of the force ignore 

jr nz,SKIPDNRPM ; if not donot test rpmcount 

cp RPM_ACOUNT,#02H ; test for less the 2 pulses 

jr ugt.SKIPDNRPM ; 

Id FAULTCODE,#06h 
SKIPDNRPM. 

cp FORCEJGNORE,#00 ; test timer for done 

jr nz,test_dn_sw_pre ; if timer not up do not test force 

TEST_DOWN_FORCE: 
di 

dec RPMJT!ME_OUT ; decrease the timeout 

dec BRPM_TIME_OUT ; decrease the timeout 

ei 

jr z,failed__dnjrpm 

di 

push DN_FORCE_LO ; save the value 

push DN_FORCE_HI 

sub DNJ : ORCEJJ3,RPM_PERIODJ-0 

sbc DN J=ORCE JURPM_PERIOD_HI 

tm DEFORCE JHi,#1 0000000B ; test high bit for sign 

jr z t test_dn_sw _pop ; if the rpm period is ok then switch 

pop DNLFORCEJHI ; reset the value 

pop DN_FORCE_LO 

ei 

faiied_dn_rpm: 

cp L_A_C,#47h ; test for the state for storage 

jr nz,NoStoreDown ; if not then continue 

cp AOBS_FLAG,#01 h ; test for the pass point set 

jr z,NoStoreDown ; if passed donot set the limit 

cp ST ATE, #00 ; test for past state 0 

jr nz.NoStoreDown ; if past 0 donot set the limit 

StoreUpLimError: 

. clr UPJJM_HI ; 

clr UPJJM_LO 

sub UP_LIM_LO,position_lo ; get the - of the count 

sbc UPJJM_Hf,position_hi ; 

call FINDJMNDOW ; find the window 

NoStoreDown: 

Id REASON,#20H ; set the reason as force 

jp SET_AREVSTATE ; set the state 

test_dn_sw_pre: 

dec FOROE_PRE ; dec the prescaler 

tm FORCE_PRE,#00000001 B ; test for odd 12 

jr nz,test_dn_sw ; if odd skip 

di 

dec FORCE JGNORE 

dec BFORCEJGNORE 

jr test_dn_sw 
test_dn_sw_pop: 

pop DN_FORCE_HI ; reset the value 

pop DN_FORCE_LO 

ei 

test_dn_sw: 

ei ; turn on the interrupt 

cp L_A_C,#044H ; test for the auto position setting 

jr ugt,calLsw_dn ; if so skip testing limit 



cp AOBSSTATE,#00 ; test for looking at the zeroer 

jr nz,call_sw_dn ; 

di 

push POSITION _LO ; save the position 

push POSITION_HI 

sub POSmOf\LLO t DN_LIM_LO ; find the difference from position 

sbc POSITION JHI,DNJJM_Hl ; 

cp POSITION_HI,#00 ; test for a within 256 of after limit 

jr z,DNJJM_SET 

pop POSITION_Hi ; reset the position 

pop POS!TION_LO 

ei 

jr call_sw_dn ; if not at the limit test radio 

DN_JJM_SET: 

pop POSiTION_HI ; reset the position 

pop POS!TiON_LO 

ei 

DOWNLIM: 

.IF DownTo Limits 

cp CMD_DEB,#OFFH ; test for the command held 

jr z,dnJim_stop ; if so skip aobs 

.ENDIF 

cp AOBSSTATE ,#00 ; test for the finish of the counter 

jr nz,AOBSFUNCTION ; AOBS happened near the limit 

cp AOBS_FLAG,#00 ; test for the flag for pass point 

jr z.AOBSERROR ; error reverse 

dn_lim_stop: 

Id REASON,#50H ; set the reason as a limit 

cp CMD_DEB,#OFFH ; test for the switch still held 

jr nzJESTRADIO ; 

Id REASON,#90H ; closed with the control held 

jr TESTFORCEIG 
TESTRADIO: 

cp LAST_CMD,#00 ; test for the last command beir r< 

jr nz.TESTFORCEIG ; if not test force 

cp BCODEFLAG,#077H ; test for the b code flag 

jr nz,TESTFORCEIG ; 

Id REASON,#0A0H ; set the reason as b code to limit 

TESTFORCEIG: 

cp FORCEJGNORE,#00H ; test the force ignore for done 

jr z,NOAREVDN ; a rev if limit before force enabled 

Id REASON,#60h ; early limit 

jp SET_AREV_STATE ; set autoreverse 

NOAREVDN: 

and p0,# A LB A C MOTOR_DN ; 

jp SET_DN_POS_STATE ; set the state 

call_sw_dn: 

cp WIN_FLAG,#00h ; test for window active 

jr z,test_dn_time ; if inactive then skip command 

Id REASON,#10H ; set the reason as radio command 



CD 


RADIO r.MflifnAAH 


; test for a radio command 


jp 


z.SET AREV STATE 


; if so arev 


id 


REASON,#00H 


, L lilt; ItfOOUfl OO UOf III TlclllQ 


cp 


SW DATA,#CMD SW 


, lest Tor command 

» 


jp 


z,SET_AREV_STATE 


test dn time. 






Id 


REASON,#70H 


; set the reason as timeout 


decw 


MOTOR TIMER 


; decrement motor timer 


ip 


z.SET AREV STATE 


cp 


OBS_FLAG,#0CCH 


; test the flag lor count 


jr 


nz,exit_dn_dir 


; if not then exit 


AOBSFUNCTION: 


.IF 


AOBSBypass 


; if the aobs can be bypassed trbm 




LAST CMD,#00 


; a held command or held B code 


cp 


; test for the last command from radio 


V 


z.OBSTESTB 


; if last command was a radio test b 


cp 


CMD DEB,#OFFH 


; test for the command switch holding 


V 


nz.OBSAREV 


; if the command switch is not holding 
; do the autorev 


ret 




; otherwise skip 


.ENDIF 


OBSAREV: 






Id 


FLASH FLAG,#OFFH 


; set flag 


Id 


FLASH COUNTER,#20 


; set for 10 flashes 


10 


FLASH DELAY HI,#FLASH HI 


; set for .5 Hz period 


Id 


FLASH DELAY LO,#FLASH LO 


Id 


REASON,#30H 


; set the reason as auto reverse 


jP 


SET_AREV_STATE 




OBSTESTB: 






cp 


BCODE FLAG,#077H 


; test for the b code flag 


jr 


nz.OBSAREV 


; if not b code then arev 


exit_dn_dir: 






. ret 




; return 


AOBSERROR: 




Id 


REASON,#0F0h 


; set the reason as no pass point 


)P 


SET_AREV_STATE 


» 

> 


DOOR DOWN 




dn_position: 






.IF 


E21 




xor 


P1 ,#00000001 B 


; Kick the external dog 


.ELSE 




WDT 




; KICK THE DOG 


.ENDIF 




cp 


FAREVFLAG,#088H 


; test for the forced up flag 


jr 


nz.DNLEAVEL 


and 


pO,# A LB A C WORKLIGHT 


; turn off light 


jr 


DNNOFLASH 


; skip clearing the flash flag 


DNLEAVEL: 




Id 


LIGHT_FLAG,#00H • 


; allow blink 


DNNOFLASH. 




and 


pO,# A LB A C MOTOR_UP A & # A C MOTOR DN ; disable motor 


cp 


SW_DATA,#LIGHT_SW 


; debounced? light 



o 



o 



jr z,work_dn 

cp UpDown,#UpDownTime 

jr ult,DnPosRet 

Id REASON,#10H 

cp RADIO_CMD,#0AAH 

jr z,SETUPD!RSTATE 

Id REASON,#00H 

cp SWJDATA,#CMD_SW 

jr 2,SETUPDIRSTATE 
DnPosRet: 
ret 



; test for the .5 seconds direction 



; set the reason as a radio command 
; test for a radio command 
; if so go up 

; set the reason as a command 
; command sw pressed? 
; if so go up 



SETUP Dl RSTATE : 

Id ONEP2,#10D 

jp SET_UP_DIR_STATE 



work_dn: 
clr 
clr 
xor 
Id 

dn_pos_ret: 
ret 



SW_DATA 
RADIO__CMD 
pO,#WORKL!GHT 
LIGHT JTIMER_HI,#OFFH 



STOP 



; set the 1 .2 sec timer 



; toggle work light 
; set the timer ignore 

; return 



stop: 

.IF 
xor 
.ELSE 
WDT 
.ENDIF 
cp 

and 
LEAVESTOP: 
Id 

and 
cp 

V 
cp 



Id 
cp 

JP 
Id 
cp 
jP 

StopPosRet: 
ret 

worK_stop: 
clr 
clr 



E21 

P1 ,#00000001 B 



FAREVFLAG,#088H 
nz.LEAVESTOP 
p0,# A LB A C WORKLiGHT 



; Kick the external dog 
; KICK THE DOG 
; test for the forced up flag 
; turn off light 



LIGHT_FLAG,#00H ; allow blink 

p0,# A LB A C MOTOR JJP A & # A C MOTORJDN ; disable motor 
SW_DATA,#LIGHT_SW 
z,work_stop 



UpDown,#UpDownTtme 
ult.StopPosRet 

REASON,#10H 

R AD IO_C M D ,#OA AH 

2 , SETJDNJE)! R_ST AT E 

REASON,#00H 

SW_DATA,#CMD_SW 

2,SET DN DIR STATE 



SW_DATA 
RADIO CMD 



debounced? light 
test for the .5 seconds direction 



; set the reason as radio command 
; test for a radio command 
; if so go down 

; set the reason as a command 
; command sw pressed? 
; if so go down 



o 



xor 
Id 



pO,#WORKLIGHT 
LIGHT TIMER H!,#OFFH 



stop_ret 



ret 



; toggle work light 
; set the timer ignore 

; return 



SET THE AUTOREV STATE 



SET AREV STATE: 



NOSD: 



clr 

clr 

di 

cp 

V 

add 
adc 
Id 
Id 

Id 
Id 

ei 
jp 



SW_DATA 
RADiO_CMD 

L_A_C,#47H 
nz.NOSD 

P32_MAX_LO,ForceAddLo 
P32_MAX_Ht,ForceAddHi 
DN_FORCE_HI,P32_MAX_HI 
DN_FORCE_LO,P32_MAX_LO 

STATE ,#AUTO_R E V 
BSTATE,#AUTO_REV 

SET ANY 



; dear the switch data 
; clear the radio command 

; test for the store force data 

; ADD the force adder 

; transfer the force 



; if we got here, then reverse motor 
; if we got here, then reverse motor 



SET THE STOPPED STATE 



Temp_SET_STOP_STATE: 

Id FAULTCODE,#04d 
jr SetStopStateNoWrite 

Mem_SET_STOP_ST ATE : 

Id FAULTCODE,#05D 

SetStopState NoWrite : 



Id 
clr 
clr 

di 
Id 

Id 
ei 
jP 



MinTimer,#01 D 
SW_DATA 
RADIO CMD 



STATE,#STOP 
BSTATE,#STOP 

SetAnyNoWrite 



; set the fault blink 



; set the fault blink 



; set next write min out 
; clear the switch data 
; clear the radio command 



SET_STOP_STATE: 

Id MinTimer,#OlD 
Clr SW_DATA 
clr RADIO_CMD 

di 

Id STATE,#STOP 



; set next write min out 
; clear the switch data 
; clear the radio command 



o 



o 



Id BSTATE,#STOP 

el 

jp SET_ANY 



SET THE DOWN DIRECTION STATE 



S ET_DN_D IR_ST ATE : 

clr SW DATA 



clr 

call 

di 



RADIO_CMD 
TempMeasure 



.IF Thermal ProtectorRag 

tm P2,#10000000B 

jr z,SkipDownThermalProtector 

Id REASON,#0B0H 

cp MotorTernpHi^DnSetMaxTemp 

jr uge,Temp_SET_STOP_STATE 

.ENDIF 
SkipDownThermalProtector: 

Id STATE,#DN_DIRECTION 

id BSTATE,#DN_DIRECTION 
ei 

clr FAREVFLAG 

cp L_A_C,#042h 

jp UGE,SET_ANY 

cp DNJ_IMJHI,#OOh 

j r nz .TestSetDownBits 

. cp DNJJM_LO,#00h 

jr nzJestSetDownBits 

jp Mem_SET_STOP_ST AT E 
TestSetDownBits: 



cp 

cp 

l r 
JP 

DownBitsOk 
cp 

jr 
clr 

DnSkipMemFauitClear: 
di 

push 
push 
sub 
sbc 
cp 
jr 

pop 
pop 



DNJ_IM_Hi,#OFFh 
nz,DownBitsOk 
DNJJM_LO,#0FFh 
nz,DownBHsOk 
Mem SET STOP STATE 



FAULTCODE,#5d 
nz,DnSkipMemFaultClear 
FAULTCODE 



DN_LIM_Hl 
DNJJM_LO 

DNJJM_LOPOSIT!ON_LO 
DNJJMJHI.POSmONJHI 
DNJJM_HI,#00 
z,POS_DNJLIM 
DNJJMJJD 
DN LIM Hi 



; clear the switch data 
; clear the radio command 
; measure the temperature 



; test for the switch state 

; skip if switch gnded 

; set the reason as thermal 

; test if we need to skip for max temp 



energize door 
energize door 

one shot the fbrced reverse 

test for learning the force and limits 
if so then set the direction to down 
test for stuck bits 

test for stuck bits 

if the bits are stuck then stop unit 

test for stuck bits 

test for stuck bits 

if the bits are stuck then stop unit 

test for memory fault 
; if so then clear 



i save the limits 

; find the difference from position 
> 

; test for a 256 < number 
; reset the limit 



jp SET_ANY 
POS.DN LIM. 



pop 
pop 
ei 
V 



DN_LIM_LO 
DN_LIM_HI 

SetUpDirStateNoTemp 



; reverse the direction if too close 
; to the down limit 
; reset the limit 



SET THE UP DIRECTION STATE 



SETJJP_DIR_STATE: 

call TempMeasure 
SetUpDirStateNoTemp: 

clr SW_DATA 

clr RADIO_CMD 

di 

.IF ThermaiProtectorFlag 

tm P2,#10000000B 

jr 2,SkipUpThermalProtector 

cp STATE f #AUTO_R E V 

jr z,SkipUpThermalProtector 

Id REASON,#0B0H 

cp MotorTempHi,#UpSetMaxTemp 

jp uge,Temp_SET_STOP_STATE 

.ENDIF 
SkipUpTherrnalProtector: 



Id 
Id 
ei 
cp 

jr 

RefreshUpLimit: 
cp 

V 
cp 

jr 
JP 

TestSetUpBits: 
cp 

V 
cp 

jr 
jP 

UpBitsOk: 
cp 

i r 

clr 

UpSkipMemFaultClear: 

jr SET_ANY 



STATE,#UP_DIRECTION 
BSTATE,#UP_DIRECTION 

L_A_C,#042H 
UGE,SET_ANY 

UP_LiM_Hl t #OOh 
nz.TestSetUpBits 
UPJJM_LO,#00h 
nz.TestSetUpBits 
Mem_SET_STOP_STATE 

UPJJM_HI,#OFFh 
nz, UpBitsOk 
UP_LIM_LO,#0FFh 
nz, UpBitsOk 

Mem_SET_STOP_STATE 

FAULTCODE,#5d 
nz, UpSkipMemFaultClear 
FAULTCODE 



; measure the temperature 

; clear the switch data 
; clear the radio command 



; test for the switch state 
; skip if switch gnded 

; if the state is autoreverse allow up 

; set the reason as thermal 

; test if we need to skip for max temp 



; test for learning the limits 

; skip testing the limit if learning 

; test for stuck bits 

; test for stuck bits 

; if the bits are stuck then stop unit 

; test for stuck bits 

; test for stuck bits 

; if the bits are stuck then stop unit 

; test for memory fault 
; if so then clear 

; set the direction 



A-7Z 



o 



o 



SET THE UP POSITION STATE 
SET UP POS STATE. 



UPNS: 



clr 
clr 
Id 

di 
cp 
J> 

add 
adc 
Id 
Id 

Id 
Id 

ei 



SW_DATA 

RADIO_CMD 

MinTimer,#01D 



L_A_C,#49h 
nz.UPNS 

P32_M AX_LO, ForceAddLo 
P32_MAX_HI,ForceAddHi 
UP_FORCE_HI,P32_MAX_HI 
UP_FORCE_LO.P32_MAX_LO 

STATE,#UP_POSITION 
BSTATE,#UP_POSITION 

SET ANY 



; clear the switch data 
; clear the radio command 
; set next write min out 



; test for the store 

; ADD the adder 
; transfer the force 



; SET THE DOWN POSITION STATE 

SET DN POS STATE: 



clr 
clr 
Id 

di 
Id 
Id 
ei 
cp 

inc 



SW_DATA 
RADIO_CMD 
MinTimer,#01 D 



STATE,#DN_POSITION 
BSTATE,#DN_POSITION 

WIN_FLAG,#00 
nz,SET_ANY 
WIN_FI_AG 
SET ANY 



; clear the switch data 
; clear the radio command 
; set next write min out 



; load new state 
; load new state 

; test for the win 
; if on skip 

; else turn on the window 



SET ANY STATE 



SET_ANY: 

clr UpDown 

Id ST ACKFLAG ,#0FFH 
SetAnyNoWrite: 

cp L_A_C,#42H 

jr uge,SkipReadAny 

SkipReadAny: 

clr AOBS_FLAG 

clr AOBSF 



; clear the direction timer 
; set the flag 

; test for in learn mode 
; if so skip reading force 



; clear the flag 

; clear any pending faults 



A -~73 



o 



o 



clr AOBSSTATE 

clr AOBSRPM 

clr OBS_FLAG 

clr AOBSB 

cp L_A_C,#4CH 

jr z.SkipForceClear 

clr MAX_F_HI 

clr MAX_F_LO 

Clr P32_MAX_LO 

clr P32 MAX HI 



SkipForceClear: 
clr 
inc 
di 
clr 
Id 
Id 
Id 
Id 
Id 
Id 
ei 

ClearRadioCmd: 
clr 
clr 
Id 
Id 
Id 
Id 
Id 
Id 
Id 

and 



SW_DATA 
L_A_C 

RPM_COUNT 

AUTO_DELAY_HI,#AUTO_HI 
AUTO_DELAY_LO,#AUTO_LO 
BAUTO_DELAY_HI,#AUTO_HI 
BAUTO_DELAY_LO,#AUTO_LO 
FORCE_IGNORE,#ONE_SEC 
BFORCE_IGNORE,#ONE_SEC 



lightotf: 
lighton: 



clr 



RADIO_CMD 
RPM_ACOUNT 

LIGHT jriMER_HI,#SET_TIME_HI 
LIGHT_TIMER_LO,#SET_TIME_LO 
PRE_LIGHT,#SET_TIME_PRE 
MOTOR_T»MER_Hl,#MOTOR_HI 
MOTOR_TIMER_LO,#MOTOR_LO 
STACKREASON.REASON 
LIGHTS.PO 

LIGHTS,#WORKLIGHT 
nz.lighton 

MOTDEL 



; reset the state counter 
; clear any past aobs count 



; test for fearing down dir 
; clear the force reading 



; clear the switch data 

; set the LAC to the next state 

; clear the rpm counter 

; set the .5 second auto rev timer 

; set the .5 second auto rev timer 

; set the force ignore timer to one sec 
; set the force ignore timer to one sec 



one shot 

clear the rpm active counter 
set the light period 



; save the temp reason 
; read the light state 

; if the light is on skip clearing 

; clear the motor delay 



ret 



THIS THE AUXILARY OBSTRUCTION INTERRUPT ROUTINE 



AUX OBS: 



JF E21 






and 


imr ,#111 1101 1b 


; turn off the interupt for up to 500uS 


.ELSE 




; turn off the interupt for up to 500uS 


and 


imr,#11110111b 


.ENDIF 






Id 


AOBSTEST,#11D 


; reset the test timer 


or 


AOBSF,#00000010B 


; set the flag for got a aobs 


clr 


AOBSSTATUS 


; clear the aobs set state 


iret 




; return from int 



o 



THIS IS THE MOTOR RPM INTERRUPT ROUTINE 
Direction for counter is the LSB of the state 



RPM: 



push rp 

srp #RPM_GROUP 

Id rpmJemp_hiJOEXT 

Id rpmJempJoJO 

trn IRQ,#00010000B 

jr 2.RPMTIME0K 



RPMTIMEERROR: 



rpm JernpJo,#1 OO0OO00B 
z.RPMTIMEOK 
rpmjemp_hi 



tm 
V 

dec 
RPMTIMEOK: 
.IF E21 

and imr,#11110111b 
.ELSE 
and 
.ENDIF 



imr,#11111011b 



Id rpm_2past_hi,rpmjDast_hi 

Id rpmJ>pastJo,rpn\_pastJo 

Id r pm _past J> i , rpm_tem p_h i 

Id rpm_past Jo, rpm_temp Jo 

Id rpm_difi_hi ,rpm_2past J* 

Id rpm_diff Jo ,rpm__2past Jo 

sub rpm_dif f Jo , rpm_past Jo 

sbc rpm_diffjii,rpm_pastjii 

tm rpm_difLhi,#1 0000000b 

jr z,RPM_TIME_FOUND 

Id rpm_diff_hi t rpm_past_hi 

Id rpm_diftJo,rpmj>astJo 

sub rpm_diffJo,rpm_2pastJo 

sbc rpmjliffjii,rpm_2pastj)i 
RPM_TIME_FOUND: 

I ~* rpm_period_hi ,rpm_diff _hi 

[ rpm_periodJo,rpm_diffJo 



; motor speed 

; save current pointer 

;point to these reg 

; read the timer extension 

; read the timer 

; test for a pending interrupt 

; if not then time ok 

; test for timer reload 

; if no reload time is ok 

; if reloaded then dec the hi to resync 



; turn off the interupt for up to 500uS 
; turn off the interupt for up to 500uS 

save the past for testing 

transfer the present into the past 

transfer the past into the difference 

find the difference 

test for neg number 

if the time is correct then jump 

transfer the temp into the difference 

find the difference 

; transfer the difference to the period 



; Found the period test for range 



cp rpm_periodJu#12D 
jp ult.SKIPC 
cir UpDown 



; test for a period of at least 6.144mS 
; if the period is less then skip counting 
; clear the direction timer 



; Position counter 



cp STATE,#1d 



; test the up direction state 



jr z.DECPCOUNT ; if so then dec the counter 

cp STATE, #2d ; test the up direction state 

jr z.DECPCOUNT ; if so then dec the counter 

cp STATE,#6d ; test the STOP state 

jr z.DECPCOUNT ; if so then dec the counter 

INCPCOUNT: 

inc POSITION_LO ; increase the position counter low byte 

jr nz.POSDONE ; if done return 

inc POSITION_HI ; increase the position counter hi byte 

jr POSDONE 

DECPCOUNT: 

• cp POSITION_LO,#00 ; test for the roll number 

jr z,DECPROLL ; if so the branch 

dec POSITION_LO ; decrease the position counter low byte 

jr POSDONE 
DEGPROLL: 

dec POSITION_LO ; decrease the position counter low byte 

dec POSITION_HI ; decrease the position counter hi byte 

jr POSDONE 

POSDONE: 



; Enable the interrupts 



ei 



; Find the max force in the period 



cp FORCEJGNORE,#00 ; test for the force ignore active 

jr nz,NOT_DELAY 

cp rpm_period_hi t MAX_F_HI ; test for a new max force 

jr ult,NOT_MAX ; if not the max force then skip updating 

cp rpm_periodJo,MAX_F_LO ; 

jr ult,NOT_MAX ; 
SaveHigher: 

Id MAX_ F_HI,rpm _period_hi ; transfer the max force data 

Id MAX_ _LO,rpm_periodJo ; 

cp L_A_C,#4BH ; test for learn limit and force 

jr ult,NOT_MAX ; if not then skip 

push RP ; set the rp 

srp #ForceTable2 ; 

Id @forceaddress,MAX_F_HI ; save the value into table 

inc forceaddress ; 

Id @forceaddress,MAX_F_LO ; 

dec forceaddress ; 

pop RP 
NOTJvlAX: 

tm POSiTIOfsLLO,#001 111b ; test for the 32th step 

jr nz,NOT_DELAY ; 

; transfer to direction if L-A-C > 44 

Id P32_MAX_Hi,MAX_FJ-ll ; transfer the value 

Id P32_MAX__LO,MAX_F_LO 
NOT_DELAY: 



; Force table entry 



N4C: 



cp L_A_C,#4CH 

jr nz,N4C 

cp POSITION_LO,#00 

jr nz,N4E 

clr MAX_F_HI 

clr MAX_F_LO 

dec ForceAddress 

dec ForceAddress 

cp ForceAddress,#ForceOHi 

jr uge,N4E 

Id ForceAddress,#ForceOHi 

cp L_A_C,#4EH 

jr nz,N4E 

cp POSITION_LO t #0FFH 

jr nz,N4E 

clr MAX_F_HI 

clr MAX_F_LO 

inc ForceAddress 

inc ForceAddress 

cp ForceAddress,#Force14Hi 

jr ule,N4E 

Id ForceAddress,#Force1 4Hi 



N4E: 



; Look lor the pass point 



• cp 

i r 

inc 
cp 

RPMOBS: 
Id 

AOBSRPMS: 

cp 

inc 

i r 

OBSBLOCK: 
INC 

AOBSDONE: 
cp 

J r 

clr 

STATEOK: 
cp 

jr 
cp 

i r 
cp 



AOBSSTATE,#00 

z,AOBSRPMS 

AOBSRPM 

AOBSRPM,#MAXAR 

nz.AOBSRPMS 

OBS_FLAG,#0CCH 

AOBSSTATUS,*,0 
nz f OBSBLOCK 
AOBSNB 
AOBSDONE 

AOBSB 

AOBSSTATE,#07 

ule,STATEOK 

AOBSSTATE 

AOBSSTATE,#00 
z.stateO 

AOBSSTATE,#01 
z,state1 

AOBSSTATE,#02 



; test for the down direction 

; if not then skip around 

; test for the position to increment 

; if not then skip 

; clear the max to get max 

; for the position window 

; find the next address 

; test the range 
; if so skip 



; test for the up direction learn 

; if not then skip around 

; test for the position to increment 

; if not then skip 

; clear the max to get max 

; for the position window 

; increment the pointer 

; increment the pointer 

; test for range 

; if in range skfp 

; else force address 



; test for aobs ok 

; if so skip the rpm count time out 
; increment the timer counter 
; test for too many * 
; if not skip 

; else set the flag for aobs 

; test for a obs blocked 

; if the protector is blocked the jump 

; increase the aobs not blocked distance 



; increase the aob blocked distance 

; test for the max state 
; if in bounds then continue 



; test for the state number 
; test for the state number 
; test for the state number 



0 



V 
cp 

V 
cp 

i r 

cp 

V 
cp 

k 

state7: 

cp 

V 
Id 
cp 

id 

UpForceAdd- 
clr 
clr 

NoForceAddress: 

cir AOBSRPM 



z,state2 

AOBSSTATE,#03 
z,state3 

AOBSSTATE,#04 
2,state4 

AOBSSTATE,#05 
2,state5 

AOBSSTATE,#06 
2,state6 

L_A_C,#4BH 
ule, NoForceAddress 
ForceAddress,#Force1 Hi 
L_A_C,#4CH 
nz, UpForceAdd 
ForceAddress,#ForceOHi 

MAX_F_HI 
MAX F LO 



cp L_A_C,#42H 

jr uge.SkipFlagTest 

cp W!N_FLaG,#00 

jr z,ClearPassPoint 

SkipFlagTest: 

cp STATE,#04d 

jr nz.SkipPassPoint 

ClearPassPoint: 
di 

clr POSITION^LO 

clr POSITION HI 



; test for the state number 
; test for the state number 
; test for the state number 
; test for the state number 

; test for learn limits 

; set the force address 

; test for the down direction 

; set the force address 

; clear the max force 

; clear all rpm counts during 

; test for learn mode 
; if so winflag is useless 

; test for the first cycle 



; test for traveling down 

; if not the skip the pass point clear 



; clear the position reg 



ei 



SkipPassPoint: 

Id AOBS_FLAG.#01d 
jr ASDONE 



state4: 



cp 



AOBSB,#00 
TN1 



; set the flag for got pass point 



; test for not blocked 



state3: 



cp AOBSNB,#MlNAR 
ir TN2 



; test for the min blockage 



stateS: 
state2: 

TN1: 



cp 



AOBSNB,#00 



; test for not blocked 



0 



o 



stateS: 
state 1: 



J' 

inc 
V 



cp 



TN2: 

ASDONE: 
inc 
clr 
cir 
K 

stateO: 

cp 

push 

srp 

cp 

\< 

clr 

clr 

sub 

sbc 

call 

NOSTORE: 
di 

push 
cp 

i r 

cp 
jr 

negwin: 

cp 
V 

com 
WINTEST: 
cp 

v 

WINERROR: 
Id 

pop 
pop 
V 

WIN_SKIP: 
pop 
pop 
inc 

STATEDONE: 



z.STATEDONE 

AOBSSTATE 

STATEDONE 



AOBSB.#MINAR 

uli.STATEDONE 

AOBSSTATE 
AOBSNB 
AOBSB 
STATEDONE 



AOBSB.#00 
2, STATEDONE 
T> 

#FORCEJ3RP 

L_A_C,#47h 

nz, NOSTORE 

UP LIM_HI 

UP_LIM_LO 

UP_LIM_LO,positionJo 

UPJJMJll.positionJii 

FIND WINDOW 



positionjo 

WiN_FLAG,#00 

2,WIN_SKIP 

positionjii,#00 

z,WINTEST 

position_hi,#OFFH 

nz.WINERROR 

positionjo 

position^io, P W! N DOW 
ULE,WIN_SKIP 



OBS.FLAG,#0CCH 

positionjo 

rp 

STATEDONE 



positionjo 
rp 

AOBSSTATE 



; if still waiting loop 
, set the next state 



; test for the min blockage 

; if not try again 

; set the next state 
; clear the not blocked 
; clear the blocked 



; test for the first blockage 

; if no block skip 

; save the rp 

; set the new value 

; test for the state for storage 

; if not then continue 



; get the - of the count 
; find the window 



; save the lo position 

; test for the window being active 

; if inactive skip 

; test for pos or neg 

; jump if the value POS < 256 

; test for < 256 
; if not then a error 
; neg the value 

; >mpare the pos value of window 
; i. within then ok 



; set the flag for aobs 
; reset the position 
; reset the rp 
; done 



; reset the position 

; reset the rp 

; set the next state 



o 



;. Look lor the pass point end 



TULS: 
INCRPMr 

di 
inc 
inc 
ei 

SKIPC: 

di 
Id 
id 



RPM_COUNT 
RPM ACOUNT 



rpm_time_out #1 5D 
BRPM_TIME_OUT,#15D 



; increase the rpm count 
; increase the rpm count 



; set the rpm max period as 30mS 
; set the rpm max period as 30mS 
; if rpm not updated by then reverse 



ei 

SKIPPEDGE: 
pop 

iret 



; return the rp 
; return 



Find the window size from the up limit setting 



FIND WINDOW: 



cp 

V 
cp 

V 
Id 
ret 

Id 
ret 

S100D: 

id 
. ret 



S150D: 



UP_UM__HI,#OFAh 

UGT.S100D 

UPJJM_HI,#0F8h 

UGT.S150D 

PWINDOW,#200D 



PWINDOW,#150D 



PWINDOW,#100D 



; test for the shortest distance 

i if so set window to 100D 

; test for the mid distance 

; if so then set the window to 1 50D 

; set the window to 200D 



; set the window to 150D 



; set the window to 100D 



Read the force according to the position 



ReadForce: 




push 


RP 


srp 


#ForceTable2 


id 


forcetemp,POSITlON_HI 


com 


forcetemp 


cp 


forcetemp,#10H 




uge,SetAddressOO 


inc 


forcetemp 


cp 


forcetemp ,#0DH 



set the RP 

get the present position of the operator 

invert the number 

test for the set to address 0 values 

add 1 for address 
test for in range 



o 



G 



V 

Set Force. 

rcf 
rlc 
add 
push 
di 
Id 
inc 
Id 

add 
adc 
pop 
ei 
di 
Id 
inc 
Id 

add 
adc 
ei 

pop 

SkipForceRead: 
ret 



uge, Set Address D 



forcetemp 

forcetemp,#ForceOHi 
forcetemp 

UP_FORCE_H I, ©forcetemp 
forcetemp 

UP_FORCE_LO,@forcetemp 
UP_FORCE_LO.ForceAddLo 
UPJ r ORCE_HI,ForceAddHt 
forcetemp 



DN_FORCE_HI,@forcetemp 
forcetemp 

DN_FORCE_LO,@forcetemp 
DN_FORCE_LO,ForceAddLo 
DN_FORCE_H t, Force AddHi 

RP 



; if not set the top address 
*2 

add the start address 
save value 

read the value 
save address 

add adder 

; reset address 

; read the value 

; add adder 

; then return 



SetAddressOO: 
clr 

i r 

SetAddressD- 
Id 
V 



forcetemp 
SetForce 



forcetemp,#ODH 
SetForce 



; set the address 



; set the address 



Read the Limits 



ReadLimits: 
push 
srp 
Id 
Id 
call 
di 
Id 

■d 

ei 

Id 

call 

di 

Id 



#LEARNEE_GRP 
SKIPRAD!O,#0FFH 
address,#AddressDownLimit 
READMEMORY 

DN_LIM_HI,mtemph 

DN_LIM_LO,mtempl 



address,#AddressUpLimit 
READMEMORY 

UPJJM_HI,mtemph 



;settheRPto LEARNEE^GRP 

t 

; turn off the radio 

; set non vol address to the down limit 
; read the value 

; recall from nonvolital 



; set non vol address to the up limit 
; read the values stored in memory 

; update from nonvolital 



o o 



Id UP_UM„LO,mtempl ; 
ei 

clr SKIPRAD10 ; turn on the radio 

pop rp ; reset the RP 

ret 



; Timer 2 Interrupt used either for RS232 or Wall control 
; Rs232 is set to 416uS Wall control is set to 300uS 
; Wall control state machine 
; Status 

; 0 = If not low set gotswitch 

; Switch from discharge to charge P3 = 1 001 XXXX 

■ ; Test for hi after 4uS switch = open 

; Test for hi after 30uS switch = light 

; 1 = Test for hi after 300uS switch = learn 
; 10 = Test for hi after 3mS switch = vacation 
; Else switch = cmd 

11= Switch state to discharge P3 = 1 1 1 1 XXXX 
; 15= Switch state to neg charge if led is to be lit 
; P3 =0110 XXXX 

Else 

; Switch state to no charge P3 = 0000 XXXX 

; 26 = Switch state to discharge 

29 = Set Status to 0 

» 

Timer2int. 



tm P2,#01000000B 
jr z.SkipLockRS232 
jr TestRs232 



; test the RS232 only switch 
; tf switch then just RS232 



;SkipLockRS232: 



cp 

jr 
cp 

TestRs232: 
cp 

jP 

call 

iret 



RsMode,#0232d 
zJestRs232 
RsTimer,#0FFH 
zJestSwitches 

T1Mirror,#RsPeriod 

nz.SetRsPeriod 

RS232 



; test for rs232 mode set 
; if set do 

; test the mode for RS232 Vs switches 
; H FF then test the switches 

; test the period 

; if set wrong then reset 

; call the routine 

; return 



TestSwitches: 
cp 
jP 

cp 



STATUS,#0FFH 
nz.SkipVacFlashing 

VACFLAG,#00H 



; test for the start position 

; if not skip testing vacation flashing 

; test for out of vacation 



o o 



jp z.SkipVacFlashing ; if out don't blink 

tm VACFLASH,#10000000B ; test for the 128mS 

jp z.SkipVacFlashing ; if out don't blink 

Id STATUS.#30D ; set for the blink 

SkipVacFlashing 

inc STATUS ; set to the next period 

cp TlMirror,#SwPeriod ; test the period 

jp nz.SetSwPeriod ; if set wrong then reset 

cp STATUS,#Od ; State jump table 

jp z.STATUSO 

cp STATUS,#1d ; 

jp z,STATUS1 

cp STATUS,#10d ; 

jp Z.STATUS10 

cp STATUS,#11d ; 

jp z,STATUS1 1 ; 

cp STATUS,#15d 

jp Z.STATUS15 

cp STATUS,#26d ; 

jp z.STAT US26 ; 

cp STATUS,#29d ; 

jp uge,STATUS29 ; 
StatusRet 
iret 

STATUSO; 

tm P0,#1 1 000000B ; test for both inputs low 

jr z,SkipSettingGotSw1 ; if low skip seting 

inc GotSwitch ; turn off the switches 

SkipSettingGotSwl : ; use hist to test resistors 

Id P01 M,#000001 OOB ; set mode p00-p03 out p04-p07out 

or P0 t #1 1 00000B ; turn both pins hi 

Id P01 M,#P01 M_INIT ; set mode pOOp03 out p04-p07in 

nop ; delay 

nop 

nop 

nop 

tm P0,#1 1000000B ; test for both inputs low 

jr z,SkipSettingGotSw2 ; if low skip seting 

inc GotSwitch " ; turn off the switches 

SkipSettingGotSw2: ; use hist to test resistors 

push TEMP 

Id TEMP,P3 

and TEMP,#00001111B ; turn both off 

or TEMP,#1 0010000B ; turn on charge 

Id P3JEMP ; 

pop TEMP 

nop ; delay 

tm PO,#10000000B ; test 4 uS later 

jr nz r GotOpen ; if so then open 

nop 

nop 

nop 



A -S3 



o o 



nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 
nop 

tm P0,#1 00000O0B ; test 30uS out 

jp nz,GotLight ; if S o then light 

tret 



STATUS 1 : 

tm P0,#10000000B 
jp nz,GotLearn 
iret 



; test 300uS later 

; if so then got the learn 



STATUS 10: 
tm 
JP 
JP 

STATUS11: 
or 
iret 



PO,#10000000B 

nz.GotVac 

GotCmd 



P3,#11t10000B 



; test 3mS later 

; if so then got the vac 



; turn all on discharge 



STATUS15: 
and 
tcm 

jP 
tm 

V 

inc 

SkipLedlnc: 
or 
iret 

STATUS26: 
or 
iret 

STATUS29: 
cp 

Status29. 

clr 

Id 

iret 

BlinkTime. 
cp 
V 



P3,#00001111B 

LearnLed,#O0111111b 

z.StatusRet 

LeamLed,#1 1000000B 

nz,SkipLedlnc 

LeamLed 

P3,#01100000B 



P3,#11110000B 



STATUS,#30D 
uge,BHnkTime 

GotSwitch 
STATUS,#OFFH 



STATUS.#60D 
uge,Status29 



; turn off both outputs 

; test for off 

; if so then return 

; test for radio blink mode 

; if not skip inc timer 



; turn on the led 



; set the discharge state 



; test for the blink 



; clear got a switch flag 
; reset the machine 
; return 

; test for the end of the run 
; if so return 



i 



o 



cp STATUS,#45D 

jr UIISTATUS11 

cp STATUS,#56D 

jr uge,STATUSl1 

jr STATUS15 



test for the led period 
if not then discahrge 



else set the program led. 



SetSwPeriod: 
id 

i r 

SetRsPeriod: 
Id 

SetT1 Period: 
Id 
Id 
iret 

GotOpen: 
call 
call 
call 
call 
iret 

GotLight: 
cp 

V 

iret 

DoLight: 

call 
call 
call 
call 
iret 

Got Learn: 
cp 
jr 

iret 
DoLearn: 
call 
call 
all 
^all 
iret 

GotVac: 

cp 
tret 

DoVac: 

call 
call 
call 
call 
iret 
GotCmd: 
cp 



T1 Mirror, #SwPeriod 
SetT1 Period 

T1 Mirror,#Rs Period 

T1 T1 Mirror 
TMR,#00001110B 



DecrementCmd 
DecrementLight 
DecrementLearn 
Decrement Vacation 



GotSwitch,#00 
z,DoLight 



DecrementCmd 
IncrementUght 
DecrementLearn 
DecrementVacation 



GotSwitch,#00 
2,DoLeam 



DecrementCmd 
DecrementLight 
IncrementLearn 
DecrementVacation 



GotSwitch,#00 
z,DoVac 



DecrementCmd 
DecrementLight 
DecrementLearn 
IncrementVacation 



GotSwitch,#O0 
z.DoCmd 



; set the period 
; set the period 



turn on the timer 
return one shoted 

open decrement all 



; light 

; test for got switch 
; if not then do the light 
; else return 



; test for got switch 

; if not then do the learn 

; else return 



; test for got switch 
; if not then do the Vac 
; else return 



test for got switch 
if not then do the cmd 



iret 




; else return 


DoCmd: 






call 


IncrementCmd 




call 


DecrementLight 


* 


call 


DecrementLeam 




cau 


L/ecremeni v aca i 1 on 




iret 






IncrementCmd: 






inc 


GotSwitch 


; set the got a switch flag 


cp 


CM D_DEB,#OFFH 


; test for at the top 


V 


z.SkipCmdlnc 


; if so then skip 


inc 


CMD DEB 


; inc 


inc 


BCMD DEB 




• " . cp 


CMD_DEB,#9d 


; test for cmd 


i r 


nz,SkipCmdlnc 


; if not the skip Cmd 


Id 


CMD DEB,#OFFH 


; set deb back to top 


Id 


BCMD_DEB,CMD_DEB 




CmdSet: 






cp 


L_A_C,#42H 


; test for ieam seq 


ir 


ult, NotinLearn 


; if not in learn skip 


id 


L_A_C,#042h 


; set the next level of force 


jr 


SkipCmdlnc 


; skip command 


NotinLearn: 






cp 


LEARNT ,#OFFH 


; test for learn mode 


i r 


z, NLearnACmd 


, it not 


Id 


L A C,#042h 


; set the next level 


Id 


FORCES,#03 


; set the starting force to lowest 


Id 


LearnLed,#00111111b 


; turn off the led 


Id 


LEARNT,#OFFH 


; set the learn timer 


• Id 


LEARNDB,#OFFH 


; set the learn debounce 


jr 


SkipCmdlnc 


; DO NOT issue a command 


NLearnACmd: 






Id 


LAST CMD,#055H 


; set the last command as wall cmd 


Id 


SW_DATA,#CMD_SW . 


; set the switch data as command 


SkipCmdlnc: 






ret 






DecrementCmd: 




inc 


GotSwitch 


; set the got a switch flag 


cp 


CMD_DEB,#00 


; test for the bottom 


V 


z,SkipCmdDec 


; if so then skip 


dec 


CMD DEB 


; dec 


dec 


BCMD DEB 




cp 


CMD_DEB t #0F6H 


; test for release 




nz.SkipCmdDec 


; if not done 


clr 


CMD DEB 




clr 


BCMDJ3EB 




SkipCmdDec: 






ret 






IncrementLight 




; test for at the top 


cp 


LIGHT_DEB,#OFFH 




z.SkipLightlnc 


; if so then skip 



o 



inc 


LIGHT DEB 


; inc 


cp 


LIGHT_DEB,#9d 


; test for light 


jr 


nz, SkipLightlnc 


; if not skip light cmd 


LightSet. 






cp 


LEARNT,#OFFH 


; test for learn mode 


V 


z.NotlnLearnLight 




cp 


STATE,#2d 


; test for up position 


V 


nz.NotlnLearnLight 




JogUp: 






Id 


Jog,#055H 


; set the jog 


V 


SkipLightlnc 




NotinLeam Light: 




id 


LIGHT DEB,#OFFH 


; set deb to top 


Id 


SW_DATA,#LIGHT_SW 


; set the switch data 



SkipLightlnc. 
ret 



Decrement Light: 



cp 
V 

dec 
cp 

clr 

SkipLightDec: 
ret 



LIGHT_DEB.#00 

z.SkipLightDec 

LIGHT_DEB 

LIGHT_DEB,#0F6H 

nz.SkipLightDec 

LIGHT_DEB 



Increment Vacation: 



cp 

v 

inc 
cp 

VacSet: 

cp 

) r 
cp 

v 

Jog Down: 
id 



VAC_DEB,#OFFH 

z,SkipVaclnc 

VAC_DEB 

VAC_DEB,#55d 

nz,SkipVaclnc 

LEARNT,#OFFH 
z f NotlnLeamVac 
STATE,#2d 
nz.NotlnLeamVac 

Jog,#OAAH 
SkipVacInc 



NotlnLearnVac: 

Id VAC_DEB,#OFFH 
Id VACCHANGE,#OAAH 

SkipVacInc: 
ret 

DecrementVacation: 

cp VAC^DEB.tfOO 

jr z,SkipVacDec 

dec VAC_DEB 

cp VAC_DEB,#{0FFH-55D) 

jr nz.SkipVacDec 



; test for the bottom 
; if so then skip 
; dec 

; test for release 
; if not deon 



; test for at the top 
; if so then skip 
; inc 

; test for vacation activation 
; if not exit 

; test for learn mode 

; test for up position 

; jog down 



; set deb 

; set the toggle data 



; test for the bottom 
; if so then skip 
; dec 

; test for reset level 
; if not then return 



o 



Clr 


VAC_DEB 


SkipVacDec. 




ret 




IncrementLearn: 


cp 


STATE, #AUTO_REV 


V 


z.SkipLearnlnc 


cp 


STATE,#UPJ)IRECTION 


V 


z.SkipLearnlnc 


cp 


STATE,#DNJDIRECTION 


jr 


z,SkipLearnlnc 


cp 


LEARNDB,#OFFH 


\" 


z,SkipLearnlnc 


inc 


LEARNDB 


cp 


LEARNDB,#9D 


jr 


nz,SkipLearnlnc 


LearnSet: 


Id 


LEARNDB,#OFFH 


clr 


LEARNT 


Id 


LearnLed,#10000000B 


cp 


VACFLAG,#00H 


jr 


z,SkipVacChange 


Id 


VACCHANGE ,#0 AAH 


SkipVacChange: 


SkipLearnlnc: 




ret 




Decrement Leam 


cp 


LEARNDB,#00 


I'r 


z.SkipLearnDec 


dec 


LEARNDB 


cp 


LEARNDB,#0F6H 


V 


nz.SkipVacDec 


clr 


LEARNDB 


SkipLearnDec: 




ret 




1 

; Temperature measurement 


t 

TempMeasure: 




.IF 


E21 


xor 


P1 ,#00000001 B 


.ELSE 




WDT 




.ENDIF 




di 




Id 


ForceAddHi,#OFFH 


Id 


ForceAddLo,#OFFH 


Id 


TMR,#00001011B 


or 


P2,#00000001b 


Id 


TMR,#00001010B 


LoopTillTempI: 




tm 


P2,#00100000B 


v 


nzTempMeasured 



reset the debouncer 



; test for motion states 
; if so then do not inc 



; test for at the top 
; if so then skip 
; inc 

; test for learn activation 
; if not then exit 

; set deb 

; clear the learn timer 
; turn on the learn led 
; test the flag for out of vacation 

; if in vacation change it 



; test for the bottom 
; if so then skip 
; dec 

; test for reset level 
; if not then return 
; reset the debouncer 



; Kick the external dog 
; KICK THE DOG 

; clear the value 

; load the timer 

; turn on the temperature rc 

; run 

; test for done 



A -ee 



o o . 



cp T0.#010H 

jr ugt.LoopTillTernpl 

• IF E21 

xor P1 ,#00000001 B 
.ELSE 
WDT 
.ENDIF 
LoopTillTemp2: 

tm P2.#00100000B 



Roll: 



BJ 

o 



O 

m 

Pi 
% % 

;> 

m 



jr nz.TempMeasured 

cp T0,#0EEH 

jr uft,LoopTiliTemp2 

dec ForceAddHi 

cp ForceAddHi,#OEFH 

jp ule.ErrorSetMaxTemp 

jr LoopTillTempI 



TempMeasured: 



Id 


ForceAddLo,TO 


com 


ForceAddHi 


com 


ForceAddLo 


Id 


AOBSTEST t #1 1 D 


or 


AOBSF,#00000010B 


clr 


AOBSSTATUS 


.IF 


E21 


• xor 


P1 ,#00000001 B 


.ELSE 




WDT 




.ENDIF 


.IF RTD 


TempOk: 




cp 


ForceAddHi,#00d 


V 


2,Msb00 


cp 


ForceAddHj,#01d 


i' 


2,Msb10 


cp 


ForceAddHi,#11d 


V 


ult,Tn15 


cp 


ForceAddHi,#l4h 


V 


ult,Tn40 


IP 


ErrorSetMaxTemp 


MsbOO: 




cp 


ForceAddLo,#07h 


jr 


ule , ErrorSetMaxTemp 


cp 


ForceAddLo,#2Ah 




ult,T85 


CP 


ForceAddLo t #6Fh 




ult,T60 


jr 


T35 



; test tor lower roll 

; Kick the external dog 
; KICK THE DOG 

; test for done 
; test for lower roll 



; should be two test for too long 
; if so set error 
; loop till done 



; set the value 



; house cleaning 

; reset the test timer 

; set the flag for got a aobs 

; clear the aobs set state 



; Kick the external dog 
; KICK THE DOG - 

; test for count < 100H 
test for count < 200H 

; test for < 1100h 

» 

; test for < 1400H 

» 

; else error 



; test for the bounds 
; if so then error 
; test for 85 deg 
; if so then jump 
; test for 60 deg 
; if so then jump 
; else it is 35 deg 



o 



MsbiO: 





CP 


ForceAddLo,#4Eh ; test for 35 deg 




ir 
V 


ult,T35 ; if so then jump 




V 


T10 ; else it is 10 deg 


T85: 










Id 


I emperaiure ,** i u , 


set ine reroperaiure 




id 








id 


rOrCeHQOLC^fFUrAn , 






jr 


ExitTemperature 


test motor tor too cold and exit 


T60: 










Id 


Temperature,#100D 


set the temperature 




Id 


rorceAddHt f #oui H , 


set the force 




IU 


ForceAddLo , #00 E H 






jr 


ExitTemperature 


test motor for too cold and exit 


T35: 










Id 


Temperature,#75D 


set the temperature 




Id 


Force Add Hi, #001 H 


set the force 




la 


ForceAddLo,#022H 






jr 


ExitTemperature 


test motor for too cold and exit 


T10: 










Id 


Temperature,#50D 


, set the temperature 




Id 


ForceAddHi,#001H 


; set the force 




Id 


ForceAddLo,#040H 






jr 


ExitTemperature 


; test motor for too cold and exit 


Tn15: 










Id 




, SK?l UK? K7I f if-tyi CUUI t~ 




Id 


ForceAddHi,#001 H 


; set the force 




•Id 


ForceAddLo,#05EH 






i r 


ExitTemperature 


; test motor for too cold and exit 


Tn40: 










Id 


Temperature, #0D 


; set the temperature 




Id 


ForceAddHi,#001H 


; set the force 




Id 


ForceAddLo,#090H 






V 


ExitTemperature 


; test mote* for too cold and exit 




.ELSE 






TempOk: 




; test for the first 51 2uS 




CP 


ForceAddHi,#00d 




V 


z,LessThen512 






cp 


ForceAddHi\#01d 


; test for the 1024 limit 




i<- 


z,LessThen1024 


» 




jP 


ErrorSetMaxTemp 


; else set to max 



LessThen512: 

cp ForceAddLo,#0D0H 

jr ule, ErrorSetMaxTemp 

cp ForceAddLo,#0EEH 

jr ult,T85C 



test for too low 

if so set error values 

test for 85C 

if so set the temp 



c 



o 



T60C 



o 

n 



nj 
M 



TO* 



LessThen1024: 
cp 

cp 

i r 

cp 

> 

cp 

jr 

cp 

jr 
jr 



T85C: 



. T60C: 



T35C: 



HOC: 



TN15C: 



ForceAddLo,#0 BH 
ult,T60C 

ForceAddLo,#26H 
ult,T35C 

ForceAddLo,#43H 
ult,T10C 

ForceAddLo,#60H 

uft,TN15C 

ForceAddLo,#80H 

ult,TN40C 

ErrorSetMaxTemp 



Id Temperature,#1 25D 
jr ExitTemperature 



Id Temperature ,#1 OOD 
jr ExitTemperature 



Id Temperature,#75D 
jr ExitTemperature 



Id Temperature t #50D 
jr ExitTemperature 



- Id Temperature,#25D 
jr ExitTemperature 



TN4GC: 



Id Temperature,#OD 
jr ExitTemperature 



; test for 60 C 

; if so set 

; test for 35C 

; if so set the temp 

; test for 10C 

; if so set the temp 

; test for -15C 

; if so then set the temp 

; test for -40C 

; if so then set the temp 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



; set the temperature 

; test motor for too cold and exit 



.ENDIF 



ErrorSetMaxTemp: 
.IF E21 

xor P1 ,#00000001 B 
.ELSE 
WDT 
ENDIF 

Id ForceAddHi,#00h 
Id ForceAddLo,#OFFH - 
Id Temperature,#85d+40D 
ExitTemperature: 

cp MotorTempHiTemperature 



; Kick the external dog 

; KICK THE DOG 

; set the force to .5mS 

; set the temperature to the max 

; test for the motor value too low 



o 



0 



jr uge.MotorTempDone 
Id MotorTempHi.Temperature 
MotorTempDone: 

and P2,#11 111 110b 

.IF ForceTempCompFIag 
.ELSE 

Id ForceAddHi t #OOh 
Id ForceAddLo,#OFFH 
JENDIF 



; if hoter or = don't change 
; else set = 

; turn off the temperature rc 



; set the force to .5mS 



.IF TempMeasureFlag 
.ELSE 

Id Temperature,#85d+40D 
.ENDIF 



; set the temperature to the m< 



ei 
ret 



; reenable the interrupts 



.end 



